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Preface 


Volume Number 2 of the five volume Best of Interface Age series is 
significant since it presents thirteen of the most-asked-for system 
and application software articles printed in Interface Age. 

The articles that are contained within this volume were chosen not 
only for their value as working software systems, but also for their 
value in showing a number of different programming techniques. We 
at Interface Age firmly believe that serious students of software, and 
those that just enjoy making use of software will find this book 
invaluable. 
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Chapter 1 

Inside ASCII 


by R. W. Berner 


The data alphabet called ASCII (Figure 1 and Reference 1), also has 
two other names—International Standard 646 (the ISO Code 
[Reference 2]) and Alphabet No. 5 of CCITT (the International Con¬ 
sultative Committee for Telephone and Telegraph). It is used 
throughout the world, incorporated in billions of dollars of equipment. 

But is it used correctly and wisely? Not always. There are misinter¬ 
pretations, and gaps in definition that permit nonstandard usage. This 
article will give you the background, peculiarities, preferred practices, 
and new developments for ASCII. You will find a lot of information not 
too generally known or realized; it should help in the correct and safe 
usage of ASCII. For additional help, you can reference the various na¬ 
tional and international standards given in Table la. Some other 
detailed articles are listed in References 3, 4 and 5. 

STICKS 4-7 

ASCII, as a 7-bit code, is usually represented in 8 columns of 16 
positions. The row positions are 0000 through 1111, the low-order 4 
bits, 0 through 15 in decimal. The columns are 000 through 111, the 
next higher 3 bits, 0 through 7 in decimal. For some reason, the 
developers of ASCII found it convenient to refer to these eight col¬ 
umns as “sticks.” So shall we. Each position will be represented in 
this article by its usual decimal representation. For example, capital A 
is position 4/1. Figure 2 is a representation of ASCII that is more con¬ 
venient to those working in octal, rather than hexadecimal, notation. 

The first positions of sticks 4 and 6 are respectively the “commer¬ 
cial at” and “accent grave.” Then the upper and lower case Roman 
alphabets follow. This offset of one position is historical (from the 
United Kingdom), and of no importance as long as you remember that 
it is so. 

Following the alphabet in both sticks 5 and 7 are three positions 
each that one must be very cautious about. In ASCII they are assigned 
as [, /', and ] in stick 5—{, I 2 , and } in stick 7. But in the ISO Code and 
CCITT versions they are reserved for national usage. Table 2 gives the 
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Figure 1. ASCII (ISO Code) 

national use assignment for these positions. Surely you remember 
that the Scandinavian alphabet has 29 letters, not 26? My friend 0rjar 
Heen in Oslo is very protective of these positions. He says “If you 
Americans want to sell computers and software abroad, don’t use the 
ASCII characters for these positions in your software.” 

To be more precise, positions 5/11, 5/12, 5/13, 7/11, 7/12, and 7/13 
(noted above) are called primary national usage positions. So is 4/0, 
where ASCII has the “commercial at.” Honeywell, for example, uses 
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ISO - International Standards Organization 
ECMA - European Computer Manufacturers Association 
ANSI - American National Standards Institute 
FIPS - Federal Information Processing Standard 

CSA - Canadian Standards Association 

BS - British Standard 

AS - Australian Standard 

CCITT - Consultative Committee International, Telephone 8 Telegraph 
JIS - Japanese Industrial Standard 
GOST - USSR Standard 

Table la. Logical Standards for ASCII 

the ‘'at” in a timesharing system for deleting the previous character 
upon entry. But this isn’t too serious, because many nations also have 
the “at” in their primary sets. 

Also in sticks 4-7 are three diacritical marks. They are accent grave 
0 in 6/0, circumflex 0 in 5/14, and tilde (~) in 7/14. These are called 
secondary national usage positions. In some countries the tilde is a 
straight overline. 

But it is the circumflex where we have a lot of confusion. Teletype 
first made it an “up arrow" in an earlier version of ASCII, to serve as 
an exponentiation symbol, primarily for BASIC. But that doesn’t do 
very well, because the exponentiation for FORTRAN is a double 
asterisk! The FORTRAN version is preferable in France, certainly, 
because they use such words as crane, cite, coGt, and so on. 

A companion problem exists in position 5/15, with the underscore. 
The underscore is neither national nor diacritical; all countries use It 
just as underscore (and for typesetting It is a U.S. convention to in¬ 
dicate italics, but In Italy it means boldface, except when it is the last 
character in a line!’). But Teletype’s early version of ASCII used it as a 
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Figure 2. ASCII in Octal Reference Form 

“left arrow”—proDably for an assignment symbol equivalent to : = in 
ALGOL The up and left arrow have been carried over from Teletype 
into many video terminals. Ask your terminal manufacturer to cease 
and desist and retrofit. It’s not ASCII and will only cause trouble 
forever. 

The last character in sticks 4-7 is the Delete, symbol DEL, in posi¬ 
tion 7/17. It was put here because the binary code is 1111111, which 
would be all punched holes in perforated (not always paper!) tape, and 
that is the only way to make sure that it cannot be misread as some 
other character. ASCII is a complete set; all positions are assigned to 
have meaning. 


STICKS 2-3 

These are usually called the sticks for digits and specials. 
Remember that they are the “digits” 0 to 9; not numbers, not 
numerals, not anything but digits! They are in 3/0 through 3/9 so that 
the low-order 4 bits are the representations for packed decimal. 
Originally we considered the possibility of a special 4-bit set for 
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numerical applications (see the fifth entry in Table la), but it turned 
out that computer hardware became inexpensive enough to not 
deprive ourselves of the extra capabilities of the 7-bit and 8-bit sets. 

Position 2/0 is officially called “space.” I don’t and didn’t like it, and 
would have preferred “blank.” Which is why the IBM community often 
uses a lower case “bee” with a slash through the vertical as its sym¬ 
bol. From the Univac side, the space has the official symbol “delta.” 

Having mentioned packed decimal, where two digits go into each 
8-bit group (“byte” to the American, “octet” to the French), a word of 
caution on the plus and minus signs—they are in stick 2, rather than 
stick 3 with the digits. But the low order 4 bits are distinct, and + 
should be used only as 1011, - only as 1101.1 mention this because 
the nonstandard code EBCDIC permits multiple representations of + 
and - in packed decimal. And the ASCII representations are not even 
coincident with any of these, with obvious dangers! 

Watch out for the “currency” positions, 2/3 and 2/4. They also have 
national variations. In ASCII they are customarily # and $, but there 
are some things to be remembered: 

• # is not “number sign” for many countries, most of which use “No.” 
or “Nr.” for that purpose. And when it is “number,” it must precede 
the digits, not follow. 

• # closely resembled the “sharp sign” in music. 

• # is “pound sign” only for the U.S., the only major country still not 
using the metric system. To the rest, it’s kilograms. For now, it’s 
best to use the abbreviation “lb.” in the U.S., not the #. In any case, 
both must follow the numeral. 

• To the British, a “pound” has the symbol “£”, which is why that is 
the symbol in position 2/3 for the UK. They get very irked when # is 
called a “pound” sign, especially in software manuals. 

• The “dollar” is peculiar to the U.S., Canada, and some others. There 
are also francs, marks, escudos, pesos, lire, etc., etc. Which is why 
the ISO code uses the universal currency symbol in position 2/4. It’s 
a circle with outside spikes at 45, 135, 225, and 315 degrees (h), 
called “scarab.” Table 2 also shows these assignments for several 
countries. 

• ECMA has provided a separate guideline for specifying interna¬ 
tional currencies. See the "Where to Get More Information” at the 
end of this article. 

It’s a tough problem, and will get worse when we get into expanded 
character sets for photocomposition and such. For now, all we can do 
is follow the ASCII standard, which says that # is a "number sign.” 

Only a few more peculiarities remain for sticks 2-3. An important 
one is in the double quote, position 2/2, and the single quote, position 
2/7. That is, you may think it is a single quote, and even use it so, but it 
is really an “accent acute” for vowels. It slants from top right to bot¬ 
tom left, to complement “accent grave” in 6/0, which slants from top 
left to bottom right. Some terminal makers do not realize this pairing, 
and will have accent grave slanting correctly, but put accent acute as 
a single quote in the unstylized up and down method. My Terminet is 
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Table 2. National Usage 

one of those that is OK. 

Don’t forget that to the typesetter, in contrast to typewriters, both 
single and double quotes have two forms—opening and closing. In 
fact, the typesetter gets his double quotes by using two single quotes, 
of either form, because the quote uses very little space in variable 
space typesetting. Most terminals, either video or hardcopy, use con¬ 
stant spacing. So double and single quotes must be distinct for that 
reason. 

The last variation is in position 276, the ampersand. There are many 
legitimate different designs for the ampersand. Neither ASCII nor the 
ISO Code prescribe any particular one. But this leads us to the next 
topic—how to represent the ASCII characters in handprinted form, so 
that they may be input to computer systems. 

HANDPRINTING FOR STICKS 2-7 

The classical confusion for many years was between the digit zero 
and the letter “oh,” but there are other possibilities for confusion. 
American Standard X3.45 specifies the handwritten character shapes 
shown in Figure 3. 

This clears up a longstanding problem. The communications types, 
and the armed services, used to put a slash through the zero; 
somehow the IBM users got to putting the slash through the letter 
“oh” instead, confusing the Scandinavians greatly. Now it’s neither 
(which helps), just a 180-degree rotation of the letter Q. The earlier 
German Standard DIN 66 002 prescribed the cursive loop in the upper 
right, as some may have learned in penmanship courses. It now per¬ 
mits the ANSI form as well. 
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Figure 3. Handprinting for ASCII Characters 


UPPER AND LOWER CASE LETTERS 

Many people are accustomed to using upper case only. This is a 
hangover from early line printers and limited sets (until the Stretch 
computer of IBM, characters were usually 6 bits in size). It would have 








8 


Best of Interface Age/Volume 2 


been far better if they had all been lower case in those smaller sets. 
Putting it simply, would you buy a book to read if it were all in upper 
case? Because lower case is much easier and faster to read, lower 
case should be the default case when one has only the one case. 
There is no reason why FORTRAN or BASIC processors cannot 
understand lower case variable names and verbs just as easily as they 
can understand upper case. 

I always recommend getting a terminal with both cases if it is at all 
affordable. Second best is making sure that a single-case terminal is 
retrofittable later, if necessary. And if a single-case terminal, get it in 
lower case only, if possible. There has been much reportage in the 
computer trade press about eyestrain resulting from using computer 
terminals. Is the reason obvious? 

STICKS 0, 1 

These are the control characters. The most important distinction in 
ASCII is the split between sticks 0-1, Controls, and sticks 2-7, 
Graphics. We’ll see this later on in the standards for Code Expansion 
(to 8 bits or more), and Code Extension (alternate sets, such as Cyrillic 
for the USSR, and Katakana for Japan). 

Unfortunately, there is, despite the standard, much difference be¬ 
tween the ways that various terminal devices handle these control 
characters. They may act differently, or they may not be operative at 
all. I have two very useful programs, written in the TEX language (Ref¬ 
erence 6). One lists each symbol by name and then shows its action 
between parentheses. The other asks you to depress in turn all the 
funny keys on your terminal, and then tells you what control 
character(s) they generate, if any. 

GRAPHICS FOR THE CONTROLS 

There are standard graphical representations for the 32 controls, 
space, and delete. They are defined by ISO 2047, American Standard 
X3.32, and ECMA-17, and are shown integral to Figure 1. Some ter¬ 
minals are advertised as ASCII terminals, and yet generate Greek or 
other characters for these positions. Don’t believe it! These symbols 
are every bit as useful as any Greek characters could be. 

There are five groups in the basic control set. 

STICKS 0,1—Logical Communication Control (10) 

This group is used for both communication and for labeling of 
media. It includes: 

SOH (0/1) (Start of Heading)—used as the first character in the 
heading of an information message. 

STX (0/2) (Start of Text)—terminates the heading just before the 
text. 

ETX (0/3) (End of Text)—Last character in the text message. Unfor¬ 
tunately, it is generated on many terminals via Control-C, 
and that’s just to the right of Control-X on the keyboard, 
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which is commonly used to cancel a bad input line. And if 
you mis-key—ouch! 

EOT (0/4) (End of Transmission)—the last character in any transmis¬ 
sion, and usually it turns your device off! 

ENQ (0/5) (Enquiry)—requests a response from a remote station, 
either an identification of that stations (Who are you?) or 
its status. 

ACK (0/6) (Acknowledge)—used by a receiver to reply “yes” to a 
sender. 

DLE (1/0) (Data Link Escape)—an Escape character, especially for 
communications, analogous to ESC (VII). It signals the 
start of a character sequence that causes a shifting into 
another set of communication controls, whenever they are 
needed. 

NAK (1/5) (Negative Acknowledge)—used by a receiver to reply “no” 
to a sender. 

SYN (1/6) (Synchronous Idle)—needed by synchronous transmission 
systems to get into, or stay in, synchronization when no 
other such signal is available to them. 

ETB (1/7) (End of Transmission Block)—indicates the end of some 
division of data that the transmission system must make, 
unrelated to any division in the format of the logical data 
itself. 

STICKS 0,1—Physical Communication (4) 

This group is used for communications. It includes: 

NUL (0/0) (Null)—the standard says that it is “used to accomplish 
media fill or time fill”.. .“may be inserted into or removed 
from a stream of data without affecting the information 
content of that stream.” And that’s exactly what the stan¬ 
dard also says about DELete (7/15), which it lists as a con¬ 
trol character even though it is not in the control sticks! 
The only difference I can see between them is that on per¬ 
forated tape you can make any character into a DELete, 
but none into a Null. 

CAN (1/8) (Cancel)—the receiver is to disregard the data received up 
to that point, starting from restart point that receiver and 
sender have agreed upon, it is common in timesharing for 
Cancel (often generated by a Control-X) to work on a line- 
at-a-time basis, to delete an unwanted string of entry 
characters, and effectively put one back to the position of 
reentering the entire line. In this case, the agreement be¬ 
tween sender and receiver is “back to the last CR.” But 
there are many other ways that Cancel could be used, and 
for parallel as well as serial transmission. 

SUB (1/10) (Substitute)—a character that says probably we would 
have had another character in this position if we could 
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have figured out what it was supposed to be! There are 
many reasons for such confusion—perhaps parity didn’t 
check out. But it is better to put in a SUB to keep the field 
lengths and such correct. Moreover, note its symbol, a mir¬ 
ror image (not the Spanish inverted) question mark. If this 
is displayable, it will tell you definitively that the system 
doesn’t know what it is, and you can make a good guess in 
many cases, particularly in word text. 

EM (1/9) (End of Medium)—defines the previous character as the 
last usable character on that medium, whether or not there 
is more recordable space on the medium. 

STICKS 0,1—Device Control (11) 

This group is used for control of devices such as terminals. 

HT (0/9) (Horizontal Tabulation)—the standard says that is "ad¬ 
vances” the active position to the next predetermined 
character position on the same line.” There are two ways 
this can work: 

1. Right at the terminal, if it has the horizontal tab 
capability built in. Sometimes you can set the tab posi¬ 
tions by using the terminal only; almost always the com¬ 
puter can be made to set the tabs on the terminal. Then 
when you hit HT during entry, or HT is read from the 
computer output, the printing or displaying (active) posi¬ 
tion will skip to the next tab setting. 

2. By a formatting program in the computer, which must 
be given some indication of the tab setting positions in 
force at any particular point in the file. The program 
then simulates horizontal tab movement by filling the 
lines with spaces as needed to achieve the alignment. 

VT (0/11) (Vertical Tabulation)—the standard says that it “advances 
the active position to the same character position on the 
next predetermined line.” And if you agree with somebody 
else, it can be to the first position in that line instead. This 
is a very dangerous character to use. It cannot be used 
directly on any terminal that I know of. Even if it could, the 
implementation rules are not supplied unambiguously in 
the ASCII standard. And for use by a formatting program, 
one would have to predefine the number of lines to be 
skipped. That's pretty tough when you are inserting and 
deleting lines, as every programmer knows. 

LF (0/10) (Line Feed)—like vertical tab, but just to the next line, 
which is clean enough. If receiver and sender agree (again 
as in vertical tab), it can be to the first position of the next 
line, in which case it is called New Line (NL). Some 
manufacturers implement this. I personally prefer having a 
separate Carriage Return and Line Feed. Both codes can 
be generated with a single keystroke, and they often are. 
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FF (0/12) (Form Feed)—again like vertical tab, to the same character 
position unless sender and receiver agree that it is to the 
first position in the new line, except that the tab is to a new 
line position that is related to a form of some size (those 
that fold 11 inches apart, for example). This control could 
run wild if your terminal or other display device is not 
equipped to handle it, so use it with caution in files. 

CR (0/13) (Carriage Return)—moves the active position to the first 
position on the same line! Not like typewriters. They have 
effectively incorporated the New Line feature. But the non¬ 
advancing CR is better for terminals, even if it is mis¬ 
named. Neither video terminals nor ball and daisy wheel 
typewriters have carriages, so live with it. 

BS (0/8) (Backspace)—Backspace is a very tricky character. On 

some terminals, such as video terminals, there is no key to 
generate Backspace for entry into the text stream or buf¬ 
fer. On many it can be created via Control-H. Even then, it 
may or may not be operative. 

Backspace is meant for physical movement of the active 
position (which may or may not coincide with a cursor 
position, when such exists). Historically, it was included 
for hardcopy terminals and other hardcopy devices for 
some of these uses: 

• Underscoring (underlining). 

• Other forms of highlighting, such as bold. For example, 
the sequence A BS A BS A would strike the A three times 
on a hardcopy device, and make it look boldface (such a 
sequence can also be translated to call a boldface font 
in photocomposition). 

• Editing indications. For example, in legislative bill draft¬ 
ing to indicate the deleted or changed portion: 

Tlhli It 

• Forming composite characters, e.g.: 

S ± * I OD | } F(Hungarian forint) 

• Forming accented letters, primarily for European 
languages. Examples: 

A A 0 (Scandinavian letters following 2) 

N a a o u 

Warning: Backspace is entirely different from a cursor 
movement on a video terminal! When the cursor is moved 
to a position where a character is already entered, suc¬ 
ceeding entry in that position usually destroys the original 
character and replaces it with the new entry. 

I personally haven’t seen any video terminals with a true 
backspace. A former president of Infoton told me it could 
be done as an engineering special for about $5,000 one¬ 
time cost. 
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Warning: There are three ways to create underscored text 
for hardcopy terminals: 

1. The characters, that many backspaces, and that many 
underscores (or vice versa). 

2. A character, BS, underscore, the next character, etc. 
This is called the canonical form, and is used quite 
commonly. 

3. Underscore, BS, character, underscore, etc. 

I have noticed a lot of difficulty moving back and forth be¬ 
tween hardcopy (at my home) and video (in my office) ter¬ 
minals. One tends to underscore on the hardcopy terminal 
and forget that half of the pairs are going to be wiped out 
by the cursor on the video terminal. In the first two 
methods above, it’s the text that gets wiped out, and it’s 
hard to read on the fly. So if you plan to display a file on a 
video terminal, find another highlighting method, or use 
the third underscoring convention. Even that may give 
problems if done by embedding an underscoring command 
in the file you pass to a formatting program; most such 
programs put the underscore last instead of first. 

BEL (0/7) (Bell)—sounds an audible signal to get the user’s atten¬ 
tion. Some terminals are not so equipped, but they should 
be. It’s good human engineering. But please give me an ad¬ 
justable volume control! 

And then there are the four device controls for unspecified purposes, 
DC1, DC2, DC3, and DC4—in positions 1/1 through 1/4. Different 
manufacturers treat these like a wild card in poker—they make them 
anything that they want. Doesn’t lead to much compatibility, so 
beware. 

STICKS 0,1—Information Separators (4) 

This group is used for formatting and string processing. These are 
the separators in positions 1/12 to 1/15.1 got the idea originally from 
the Word Mark in the IBM 1401, which used an extra bit in the low- 
order character in a field as a delimiter. ASCII uses special and 
separate characters to indicate a hierarchical structure. Originally I 
put in eight such characters, but only these four remain: 

FS (File Separator —1/12) 

GS (Group Separator —1/13) 

RS (Record Separator—1/14) 

US (Unit Separator —1/15) 

FS is most inclusive, US the least inclusive. And we can consider the 
blank/space as the next lower order separator from these. Suppose 
we had a line of text like this: 

(text1)US(text2)US(text3)RS(text4)US(text5)GS(text6) 

On many terminals these delimiting control characters would not 
print, so we would see only a continuous stream. On others they might 
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show as spaces. A TEX command to break the line at the record 
separator would be: 

scan:line:*rs 

The variable ‘left would contain “(textl).. .(text3)”. The variable 
‘right would contain “(text4).. ,(text6)”. 

STICKS 0,1—Changing Sets (3) 

This group is used for moving to and from alternate graphic and 
control sets. This includes ESCape (1/11), Shift Out (0/14), and Shift In 
(0/15). 

These basic control characters have permitted design of a quite 
marvelous structure for extension and expansion. It allows us to code 
and classify most of the world’s graphic symbols for computer 
storage, interchange, and display. 

THE ASCII COLLATING SEQUENCE 

The abstract aspects of ASCII have been treated. Now we come to 
some aspects of usage and implementation. Certainly one major use 
area is the ordering of files. 

To put items in some ordering, the entire precedence relationship 
for that ordering must be defined. Higher or lower, precedes or 
follows, or whatever. For single characters, this ordering relationship 
is called the “collating sequence.” 

The ASCII standard used to say that the collating sequence for both 
graphics and control characters is defined simply by their binary 
representations. Later it added a warning that this collating sequence 
“cannot be used in many specific applications that define their own 
sequence.” What an understatement! 

The 1977 version hedges and speaks all around the problem without 
making it clear. It’s not all that difficult. Suppose you have two files, 
and you want to know how they differ and/or how they are the same. 
For this purpose, the implied collating sequence (straight binary com¬ 
parison) is just fine. The two files will be in the same order, and can be 
matched. 

Whether that straight binary ordering can be used for any other pur¬ 
pose is doubtful. It won't work for signed numbers. 

Ordering Numerals 

Take these four values: 22,13, minus 6, and minus 31. If the sign is 
placed before the digits, ordering by the ASCII collating sequence 
yields: 

+ 13 
+ 22 
-06 
-31 

This is obviously worthless. It’s because ordering is decided left to 
right, and the minus sign has a binary value 2 higher than the plus 
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sign. Or if the sign were to follow the numeric values we would get: 
06- 
13 + 

22 + 

31 - 

because the complete decision is made in the leading digit. Again, a 
worthless sequence. 

The way to achieve a proper ascending sequence is to separate the 
values into two groups, ordering those with plus signs in ascending 
sequence, and those with minus signs in descending sequence. Then 
put the plus group following the minus group. And vice versa for a 
total descending sequence. Notice that this works regardless of 
whether the sign precedes or follows the digits. 

Ordering Alphabetic Fields 

Alphabetic ordering is even more complex, particularly in handling 
both upper and lower case. Again the implied ASCII collating se¬ 
quence can go wrong. People who have not studied the collating prob¬ 
lem for data containing both upper and lower case are inclined to 
jump to wrong conclusions. I did myself, for the IBM Stretch computer 
in 1958, assigning the ascending binary sequence as AaBbCc. Using 
this for a telephone directory would give us the left hand column. The 
straight binary sequence of ASCII would yield the righthand column, 
just slightly different: 


De Carlo 

De Carlo 

De La Rue 

De La Rue 

De Long 

De Long 

DeLair 

DeLaRue 

DeLancey 

DeLair 

DeLaRue 

DeLancey 

Delancey 

Delancey 

de Carlo 

de Carlo 

de la Rue 

de la Rue 

deLancey 

deLancey 


Either version will get a lot of anguished subscribers! 

In the simplest case, two alphabetic items must be compared with 
the case ignored. Only if they are then equal is case called into con¬ 
sideration to break the tie, and it is also applied successively left-to- 
right! 

In short, the upper and lower case versions of a letter do not both 
get full graphic significance. Typing either “Y” or “y” will indicate a 
“yes” reply, but “N” will not. Because the case distinction is minor, 
comparisons must first be made on major distinctions, with the minor 
distinctions used only as tiebreakers. Accenting of letters must also 
be considered minor, if accomplished via backspace, but this leads us 
into rules controlled by foreign governments, and won’t be considered 
here. 
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Real life is more complicated than this. The ordering and sequenc¬ 
ing of characters and words cannot always be accomplished by sim¬ 
ple binary comparison of codes. There are constructions such as 
O’Reilly, I’lnformatique (as data processing is called in French), and 
Smith-Jones—to say nothing of the Juniors, Ills, Esq., FBCS (which I 
am), and so on. 

Making an ASCII comparison, with the case as a minor, gives us: 
Oe Carlo 
de Carlo 
De La Rue 
de la Rue 
De Long 
DeLair 
DeLancey 
Delancey 
deLancey 
DeLaRue 

Because we at first ignored case here, De Carlo and de Carlo have 
identical bit patterns. Tiebreaking is done by appending the binary 
pattern representing case, “0” for upper, “1” for lower. Specifically, 
01001111 for De Carlo, 11001111 for de Carlo. 

D E CARLO 

De Carlo 44 45 20 43 41 52 4C 4F (4F) 

de Carlo 44 45 20 43 41 52 4C 4F (CF) 

But even this method will not put “DeLaRue” and “De La Rue” in the 
same cluster. And surely this is desirable and even mandatory. It will 
require some special handling for spaces. The New York Telephone 
Company’s document on this problem runs to several pages! They’d 
probably give you a copy upon request. You might need to know those 
rules before trying one of the toughest acts in data processing- 
putting last name first, or vice versa. 

Using Controls in Ordering 

There is one more aspect of ASCII useful to the ordering problem. In 
the days of punch cards, before computers, one often used several 
card files related by a key. A sorter (with pockets for the cards to drop 
into) might be used to select the cards for all redheaded females be¬ 
tween 18 and 24 years of age. But these cards would have only the 
employee number and such characteristics on them. To get the name, 
address, and telephone number one might have to go to a second (re¬ 
lated) deck of cards. So the first deck (the subset of interest) would be 
placed in the first hopper of a collator, and the deck with all names 
and phone numbers in the second hopper. Then a card would be fed 
from the first hopper, followed by successive cards from the second 
hopper, until a match was found on employee number. Obviously both 
decks had to be in the same ordering for this to work, and thus the 
term “collating sequence.” 



16 


Best of Interface Age/Volume 2 



Figure 4. APL Character Set 

In effect, we were sticking the cards of the first deck upright just in 
front of the corresponding cards of the second. To do this with ASCII 
requires that we have characters that collate lower than the lowest 
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graphic, the space (2/1). We do have them. The best to use are NUL, 
FS, GS, RS, and US. Put one of these after each search key, then put 
the two files together and order them as adjoined. Now those records 
having a search key with one of our five control characters appended 
will precede the corresponding record having an ASCII graphic fol¬ 
lowing the key. 

Note that the four information separators (FS, GS, RS, US) are 
designed to collate just behind Space, in that order. This contiguity 
means that they can be used as a hierarchy of spaces of different 
class. 


Other Collating Features 

ASCII was designed when there was substantial investment in files 
already ordered on a Topsy-class IBM sequence, where the basic 
punctuation was low to the alphabet, but the digits were high to it. 
How then to accomodate this and still provide a 4-bit subset? My 
morning shower provided a solution (it still does!). 

The 4-bit subset is formed of the first 10 graphics of stick 3 (the digit 
graphics) and the last 6 of stick 2. This job was shown shaded in the 
early forms of ASCII, but has all but disappeared from memory now. It 
enables stick 3 (with the digits and new special graphics) to be 
ordered high to all the others via passive logic, thus overcoming op¬ 
position to the adoption of ASCII. 


ASCII AND PROGRAMMING LANGUAGES 


Standard ECMA-53 (1978 Jan), “Representation of Source Programs 
for Program Interchange,” gives the subsets and/or modifications of 
ASCII as they are used for these five programming languages: 4 


Language 

APL 

Minimal BASIC 
COBOL 
FORTRAN 
PL/I 


NO. OF CHARACTERS USABLE 


Subset of ASCII Other 

57 32 

60 0 

51 0 

49 0 

55 2 


Figures 4 through 8 are the character sets for these languages as 
given in ECMA-53. They show the only characters permissible for use 
in source programs, except for: 

non-numeric literals in COBOL 

comment-entries 

comment lines 

character constants in FORTRAN 

comments ” 

character-string-constants in PL/I 

comments 

For these purposes only, other ASCII characters may be used, pro¬ 
viding there is agreement between the sender and receiver for any in¬ 
terchange of source programs. 



18 


Best of Interface Age/Volume 2 



Figure 5. Minimal BASIC Character Set 

The TEX language has gone farther than this general caution. There 
the specific characters have permanent names. For example, one 
could say: 
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Figure 6. COBOL Character Set 

linefeed = “ 

” (actual line feed inside the quotes) 
if *lf:eqs:linefeed.... 
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um 

Um 

H 
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Figure 7. FORTRAN Character Set 

and it would be true, because “*lf” is the permanent name of Line 
Feed. The control characters have names that are the letters from the 
ASCII chart, preceded by the asterisk to show that they are read-only 
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0 ! ■■ ■■ ■■ ■■ 




Figure 8. PL/I Character Set 


variables with permanent content. TEX can in fact operate upon all 
256 characters of ASCII in an 8-bit byte, all 512 in a 9-bit byte. 
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Specific Notes on the Figures 

APL—Sticks 6 and 7 (ordinarily lower case alphabet) are re¬ 
placed entirely except for the DELete position. 

—Space is nonprinting, although the symbol shown is SP. 

—Ampersand (2/6) is not used for writing source programs, 
except as the last character of a line if that line is to be 
continued on the next line. 

PL/l—ln position 2/1, the exclamation point is replaced by a ver¬ 
tical bar for OR. 

—In position 5/14, the circumflex is replaced by the symbol 
shown, for NOT. 

—If you have to use your terminal for both PUi and some 
other programming language, forget that foolishness. 
You can get by with the exclamatin point as OR, and the 
circumflex as NOT. The important point in source pro¬ 
gram interchange is to have the encoded representations 
of the characters exchanged correctly. 

(all)—Although the character BLANK (space) is shown as the 
flagged lower case "b” in the FORTRAN and PUi sets, 
there is no printing graphic to indicate it. For all practical 
purposes, it is really the Space of ASCII (2/0). 

—Four of these five languages (not APL) have the “$" 
shown in 2/4. When the International Reference Version of 
the code is used, this becomes the universal currency 
symbol, which is also acceptable. 

—Minimal BASIC uses which is the International 
Reference Version symbol. The national symbols, such as 
the English pound sign, are also acceptable. 

ASCII AND MEDIA 
ASCII and Punch Cards 

Reading the punching equipment for punch cards, be ing very 
mechanical, is so expensive that microcomputer people are unlikely 
to use them. So you might ask why we bother here with the represen¬ 
tation of ASCII on this medium? I can think of at least three reasons: 

• A scientist at the U.S. National Bureau of Standards said once that 
if punch cards were on the way out, it was the only product he ever 
saw dying on an upward usage curve. Thus they are likely to be 
around for a long time, and you may need to transfer some of those 
files to other media that you do use. 

• There is some likelihood that microcomputers could be used in the 
reading and punching equipment itself, to make it less expensive. 

• ASCII users are going to be confronted for a while yet with one of 
the several versions of IBM’s EBCDIC, and the punch card 
assignments provide the only legitimate link for conversion of 
EBCDIC files to ASCII. 

So Figure 9 defines the hole patterns for the binary encodings. And 
Figure 10 defines the encodings for the hole patterns. Don’t worry 
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ISO 

ECMA 

ANSI 

FIPS 

PUB 

CSA 

BS 

AS 

CCITT 

J IS 

Hollerith Punched 

Card Code 

1679 

2021 

44 

X3.26-1970 
S4.2S 

14 

Z243.14 

.36 

4636/3 
/ 4 

1063 



Track Assignment - 
25.4 mm Perf. Tape 

1113 

10 

X3.6-1965 
S3.00 

2 

Z243.8 

3880/3 

1062 


C6221 

Track Assignment - 
12.7 mm Mag Tape 

200 cpi NRZ1 7-track 

1861 

5 

X3.14-1973 
S3.25 



3968 

1007 



Track Assignment - 
12.7 mm Mag Tape 

800 cpi NRZI 9-track 

962 

1863 

12 

X3.22-1973 
S3.75 

3-1 


4503/1 

1009 


C6222 

Track Assignment - 
12.7 mm Mag Tape 

1600 cpi PE 9-track 

3788 

36 

X3.39-1973 
S3.75 

25 


4503/2 




Track Assignment - 
12.7 mm Mag Tape 

6250 cpi GCR 9-track 

DP 

5652 


X3.54-1976 
S5.25 







Labeling & File 

Structure - 12.7 mm MT 

1001 

13 

X3.27-1977 
(unpriced) 


Z243.7 

4732 

1068 



Track Assignment - 
Magtape Cassette 

3.81 mm, 32 bpmm 

3275 

3407 

34 

X3.48-1977 
S5.75 



5079/1 




Labeling & File Struct. - 
3.81 Magtape Cassette 

DIS 

4341 

41 








Track Assignment - 
6.35 mm Cartridge Tape 

64 bpmm PE 

DIS 

4057 

46 

X3.56-1977 
S4.24 







Table 1b. Standards for ASCII on Physical Media 



ISO 

ECMA 

ANSI 

FIPS 

PUB 

CSA 

BS 

AS 

CCITT 

J IS 

Bit Sequencing in 

Serial Transmission 



X3.15-1976 
S3.00 

16-1 




V.4 

X.4 


Char. Structure 8 Parity 
Sense - Serial-by-Bit 



X3.16-1976 
S3.50 

17-1 




V.4 

X.4 


Char. Structure 8 Parity 
Sense - Parallel-by-8it 



X3.25-1976 
S3.50 

18-1 




V.4 

X.4 


Procedures for Using 
Commun. Control Chars. 

1745 

16 

X3.28-.1976 

S10.50 


Z243.13 

4505/1 

1484/1 



Message Heading 

Formats 

1745 


X3.57-1977 
S5.25 








Table 1c. Standards for ASCII in Communications 

about the inconsistency in the relationships. Nothing can be done 
about it now, because it started with Herman Hollerith’s first U.S. Cen¬ 
sus machines in 1890. At first only digits and + and - signs were 
used. Then the code was expanded to the upper case alphabet. And 
other special characters for commercial use. When FORTRAN came 
along in 1964, it turned out that the limited capability of the subset of 
a 6-bit set would not permit the graphics needed for scientific work. 
For a long while there were dual graphic representations for several of 
the punch card code combinations, and this carried over into printer 
chains, and so on. 

The only logic that the patterns follow is that they do or do not have 
a punch from among these six possibilities: 

12-punch (top row) 

11-punch (next to the top row) 

0-punch 
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Figure 9. Card Hole Patterns Assigned by Codes 
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ca 
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ca 
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ca 

ca 

ca 

1 ! 

ca 

ca 

ca 

ca 

ca 

1 ^ 1 

ca 

ca 

1 ^ 1 

ca 

ca 

1 m 1 

ca 

ca 

ra 

■o 
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Figure 10. Codes Assigned by Card Hole Patterns 
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8- punch 

9- punch (bottom row) 

a punch from among the digits 1 through 7 
Including the no-punch-at-all combination (NUL), this gives 256 com¬ 
binations, just right for the 8-bit code. Although ASCII was technically 
only a 7-bit code at the time this rule was formulated, it was felt 
necessary to plan ahead a little. 

ASCII and Magnetic Tape 

Figure 11 gives a compact representation of several relationships, 
among which is the assignment of ASCII bit pattern to 9-track 
magnetic tape. The jumbled assignment may remind you of the “firing 
order” for the cylinders of an automobile engine. In fact, we used to 
call it just that. It was intentional for increased reliability. As in so 
many cases, better technology has removed the need for peculiar 
design, but the assignments are unchangeable because of data file 
investment. 

There is no parallelism in recording and reading on cassettes and 
cartridges. The ASCII bits are recorded serially in the track. Thus 
Figure 11 does not consider these media. 



even 

parity 


8 7 6 5 

.lit 

be b7 b* b5 

III! 

4 7 6 5 3 

odd parity 


4 


I 

b A 

I 


feed 

hole 


3 2 1 

I 1 t 

b3 b2 bi 

1 1 I 

1 8 2 


track of 8-track 
paper tape 


(bi is the first bit 
sent in serial trans¬ 
mission, then b 2 , etc. 
to b? (bs), then parity) 


channel of 9-track 
magnetic tape 


Figure 11. Bit Sequences—Media and Communications 


ASCII and Communications 

Not only is the topic of ASCII and communications a very complex 
and large dissertation for this article—it is also undergoing substan¬ 
tial rethinking, enlargement, and invention. You will have to follow on 
your own the workings of the CCITT, the various networking systems 
of the several large and many small manufacturers of computer 
systems, and the offerings of the common carriers—either on the 
local distribution system (via ATT) or direct distribution (via Satellite 
Business Systems). 

Many of the existing standards are listed in Table 1c. Many more 
are under development. Arguments are raging internationally on the 
merits of packet switching, byte protocols, value-added systems, 
open-working systems, tariffs, data movement across national 
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borders, the X.25 protocol, etc., etc. ATT is offering a new service 
bureau because they suddenly discovered data-under-voice (DUV). All 
I can tell you now is that it is all based upon ASCII, and the proposed 
protocols are all dependent upon the ASCII control characters in 
sticks 0 and 1. It will take years for this to shake out, and for now all 
one can do is get on the CBEMA mailing list (see “Where to Get More 
Information” at the end of this article). 


ASCII AND THE METRIC SYSTEM 

The full ASCII graphic set (both cases) is sufficient to indicate all 
symbols and prefixes of the SI (International System of Units, the new 
metric system), with three exceptions. They are the Greek letters 
“omega” for “ohm,” and “mu” for "micro,” and the degree symbol for 
Celsius temperature. These three characters will be provided in 8-bit 
ASCII. Meanwhile, for these, and also for such equipment that has on¬ 
ly a single case, there is a standard way of representing the SI units 
and prefixes. This is given in International Standard 2955, “Represen¬ 
tations of SI Units and Other Units for Use in Systems with Limited 
Character Sets,” and also in American Standard X3.50-1976. 

To keep the record straight, let’s first look at the characters used 
for the prefixes. They’re shown in Table 3, which indicates multiples 
from lO’ 1 * up to 10~". 


10“ 

1 

10“ 

exa (E) 

18 

atto (a) 

peta (P) 

15 

femto (f) 

tera (T) 

12 

pico (p) 

giga (G) 

9 

nano (n) 

mega (M) 

6 

micro (n) 

kilo (k) 

3 

milli (m) 

hecto (h) 

2 

centi (c) 

deka (da) 

1 

deci (d) 


Table 3. Metric Prefixes 


Above 3 there are no powers except multiples of 3. This practice 
breeds better comprehension, like marking off three’s in writing 
numbers of many digits. Also, as a memory convenience, all symbols 
are capitals for powers greater than +3. And there are no conflicts 
with the symbols for the units of measurement. 

Now, again for the record, here are the ASCII characters) used as 
symbols for the units: 


A 

ampere 

cd 

candela 

Bq 

becquerel 

d 

day 

C 

coulomb 

g 

gram 

°C 

degree Celsius 

h 

hour 

F 

farad 

1 

litre 

Gy 

gray 

Im 

lumen 
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H 

henry 

lx 

lux 

J 

joule 


micro 

K 

keivin 

m 

metre 

N 

newton 

min 

minute (time) 

a 

ohm 

mol 

mole 

Pa 

pascal 

rad 

radian 

S 

siemens 

s 

second (time) 

T 

tesla 

sr 

steradian 

V 

volt 

t 

tonne/metric ton/ 

W 

watt 


megagram 

Wb 

weber 




Table 4. Metric Units 


Table 4 shows the rules clearly. Units not named after people are all 
lower case, as shown in the righthand column (although I do know a 
Mr. Day). In the lefthand column are the units that are named after 
people. The names of the units are not capitalized at all, but the sym¬ 
bols begin with an upper case letter. 

I said previously that there were no conflicts between unit and 
prefix symbols. But you’ve probably noticed “d” for both “day” and 
“deci," “h” for both “hour” and “hecto,” “m” for both “metre” and 
“milli,” and “T” for both “tesla” and “tera.” OK. But there isn’t any 
confusion in actual usage, because the prefix precedes the unit: 
dd is a deciday (2.4 hours) 
hh is a hectohour (100 hours) 
hH is a hectohenry (but don't ever use the term) 
mm is a millimetre 

Mm is a megametre ('km the distance light travels in 
a second) 

TT is a teratesla (Wow!) 

I am not suggesting that the prefixes should be applied to other 
than the primary metric units (the second is the primary time unit; 
hour and day are not), even though the timesharing system I 
customarily use figures my time in millihours. But when you get 
accustomed, the prefixes are very valuable in other ways. For exam¬ 
ple, an American billion is a kilomiliion, whereas the British billion is a 
megamillion! And my metric teaching program understands such 
things as kilofathoms. 

The “space” character is also vital to correct SI usage. It must 
occur between values and units, like 123.6 mm, and 22 °C. 

And don’t forget another peculiarity of ASCII as an international 
alphabet. (1/14) is absolutely not defined as a "decimal point” (nor is it 
defined as “period,” which in Europe is “full stop”). For most of the 
rest of the world, the comma (1/12) is the decimal marker, and the 
period is used to mark off threes. That’s why the recommended prac¬ 
tice for marking off threes is to use the space, not either comma or 
period. E.g., “1 234 567 mm.” 

To save you the bother of looking up the standards for use with 
limited character sets, here is the algorithm: 
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1. If you have ASCII with both cases of alphabet, the three missing 
symbols are handled as: 

ohm for Q 

Cel (initial cap) for °C 

u (lower case) for n (micro) 

2. If you have only one case of alphabet (either upper or lower), use 
it, and these three replacements remain as: 

OHM Ohm 

CEL or cel 

U u 

And in addition: 


S (siemens) 


SIE 


sie 

h (hour) 

become 

HR 

or 

hr 

t (tonne) 
Examples: 


TNE 


tne 


16 UOHM is 16 pSl 
373.15 K = 100 Cel 

Notice that no plurals are used in symbol combinations— 
MICROHMS, but UOHM. 

ASCII AND KEYBOARDS 

Technically, a keyboard is an ASCII keyboard if it generates the 
proper codes for the full set of ASCII graphic and control characters. 
Moreover, none of the graphic characters should have any control 
properties. 

There are many types of special keyboards—Dvorak, a two-sided 
one used like an accordian with the hands in a vertical planes, Touch- 
Tone and its derivatives, etc. There are no formal standards to relate 
these keyboards to ASCII. For typewriter-style keyboards, however, 
there are two versions given in the American National Standard. One 
is derived from the usual electric typewriter keyboard, the other is 
called the “bit-paired” keyboard. Only the bit-paired keyboard will be 
shown and discussed here, because the other form is the subject of 
proposals for extensive change due to the growth of Word Processing. 
ANSI Committee X4A12 is studying this now. 

The bit-paired keyboard was designed for minimum circuitry cost. 
Thus the "at” symbol (4/0) is paired with the accent grave (6/0), “A” 
(4/1) with "a” (6/1), and “ + ” (2/11) with (3/11). Thus the shift key af¬ 
fects each other key by only a 1-bit change. 

This keyboard is shown in Figure 12. It is the interchange keyboard 
of ECMA-23. The numbered arrows key to the notes on changes that 
would make this ECMA keyboard into the ANSI keyboard for ASCII. It 
is also equivalent to the keyboard of ISO Standard 2530-1975. 5 

Notes for Figure 12 

1. For the ANSI keyboard, this key is put to the right of the cir¬ 
cumflex key, on the top row (see Note 6). The Shift Key is put 
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Figure 12. Basic ISO/ECMA/ASCII Keyboard 

in its place. 

2. If this key exists and is available, the ECMA and ISO stan¬ 
dards put the underscore here, removing it from the "zero” 
key. 

3. The ANSI keyboard of course puts a “$" here in place of the 
international currency symbol. 

4. This is where the underscore is removed for the 48-key 
keyboard (see Note 2). 

5. Here ECMA and ISO show the "overline” instead of the 
“tilde. ” It’s a question of styling. 

6. The ANSI keyboard has the reverse slash and vertical bar 
here, rather than between the shift key and “Z" (see Note 1). 

7. The ANSI keyboard specifies the underscore here, in both 
shifts, rather than the positions shown as options in Notes 2 
and '4. Practically no keyboards follow this. In fact, as / am 
entering this text, this is the only key where my Infoton Vistar 
deviates from the ANSI standard. It has Line Feed there, with 
Return to its right—a very sensible arrangement. 

Customarily, the Control Key is also tied to bit-pairing in such 
keyboards. The standards recommend that characters created in 
combination with the Control Key should use the graphic key in sticks 
that are 4 or 6 units higher. Thus “X” (5/8) or “x” (7/8) in combination 
with the Control Key produce CAN (1/8). Unfortunately this also means 
that Control-C generates ETX (0/3). And whereas Control-X as CAN is 
used frequently, to erase an input line of text, ETX is not often wanted. 
Yet it is a common miskeying to hit C rather than X. In many timeshar¬ 
ing systems you will get a disconnect rather than a line delete. 

Control and Function Keys 

The so-called “QWERTY” arrangement is prevalent throughout the 
Anglo-Saxon world. Even the French “AZERTY” set is being con¬ 
sidered for change. But on top of these basics there are hundreds of 
keyboard varities. Some of them have “dead keys” (i.e., the platen or 
printing element is not advanced when they are hit). This avoids hav- 
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ing to use BS for accented letters, but it also creates difficulties in 
code generation. 

There are some general good practices that ASCII keyboards 
should follow. To facilitate usage by those experienced with 
typewriters, all controls not used with typewriters should be located 
outside the customary touch-typing area. As a specific example, the 
Break/Interrupt key should be located where it is a definite effort to 
reach it (not mixed in with the keyboard). ISO 3244 may be consulted 
for these considerations. 

Function Keys are those that generate sequences of more than one 
ASCII character. Examples are cursor keys, Erase-to-EOL, etc. They 
should be located in special clusters. Most importantly, they must all 
generate ASCII codes for transmission when in character-at-a-time 
mode. I know of video terminals where the cursors do not generate 
codes, as they should not while in full page buffered mode; but they 
still operate in line mode without generating codes. In this case the 
screen is alterable, but there is no way of detecting it in the computer. 

Many keyboards will have some function keys that are unlabeled, 
for do-it-yourself assignment. These should also be clustered 
separately, and generate code sequences when in line mode. 

ASCII AND DISPLAY/PRINTING 

When ASCII characters are displayed, it may be on a video screen, 
paper, or COM (microfiche). 

On the video screen there are a number of methods to form the 
characters, mostly at the manufacturer’s preference. They are usually 
at pica (constant-width) spacing for economy, so an approximation of 
graphic quality (such as typesetting) is not obtainable. When lower 
case is available, the risers and tails extend above and below the line 
for some screens. In others, they fall within the boundary lines of the 
upper case characters. They may be shown in inverse video (light 
background block), or highlighted by different brightness or blinking. 
Controls for this work will be taken up later in this article. 

For paper copy one usually finds either direct impact of a formed 
letter, or stylus printing. Either method is suitable to proportional 
spacing if desired. Recently there has been a general trend toward 
using the 7x9 dot matrix shapes of ECMA Standard 42 for stylus 
printers. This set of graphics is shown in Figure 13. 

For hard print elements, of course, one can get a nearly infinite 
variety of styles and fonts. There are only two, however, specifically 
associated with computers—OCR-A and OCR-B. “OCR” stands for 
“Optical Character Recognition,” meaning that the shapes are so 
styled that a computer-controlled scanner can read the characters as 
printed on paper, and encode them directly from their shapes. 

OCR-A is not suitable for human reading. It’s the funny looking one 
with the diamond-shaped letter “Oh.” I won’t dignify it by showing the 
font here. It was thought formerly, with technology of that day, that 
making humans work harder to read letters would make it easier and 
thus cheaper for computers to read them. This argument turned out to 
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Figure 13. 7x9 Dot Matrix Shapes 

be specious, and with today’s technology there is no need to use 
anything other than OCR-B. 

OCR-B is specified in ISO 1073/2, ECMA-11, and ANSI X3.49. It is the 
font shown in Figure 14. I have it on my IBM golfball typewriter at 
home, and on my daisywheel element at the office. So it should be 
available for most hard elements, including the carousel type. 

The first six rows correspond to ASCII sticks 2-7. In the first row, the 
pound and universal currency symbol are for replacement as needed. 
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Figure 14. OCR-B Font 

In the fourth row, the underline is discontinuous; a continuous form is 
shown in the auxiliary set. This set also contains a matching accent 
acute instead of single quote, the real circumflex (besides an up 
arrowhead), a cedilla, and an alternative “m” for variable pitch print¬ 
ing only. 

CODE EXTENSION-GENERAL PRINCIPLES 

Over ten years ago it was recognized that ASCII was the basis for 
codification of the various symbols used throughout the world. 
Through it, libraries could store encoded books as well as printed 
books. And while electronic mail may be quite simple with ASCII and 
its Roman alphabet, that’s not the alphabet of all countries. The USSR 
uses Cyrillic, the Japanese use Katakana, and the Arab world uses its 
own semi-script alphabet. Moreover, to send a mathematics textbook 
by electronic mail one would have to be able to encode the formulas 
and special symbols peculiar to mathematics, which includes many 
Greek characters! 

This is where the ESCape character and ESCape sequences come 
in. You can get the whole complicated story from ISO Standard 2022 
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(or ECMA-35) on Code Extension Procedures. But it will be easier to 
think of reproducing many ASCII Code Tables on the pages of a book, 
then replacing the ASCII symbols on all but the first page with the 
other alphabets we need. 

Then we make sure that everyone in the world has the same (code) 
book. (The resemblance to military code books is intentional.) That’s 
done by registering the page number assignment to characters (ac¬ 
tually either a control set or a graphic set, but not both) with the 
French Standards Body AFNOR. That’s the Association Francaise de 
Normalisation, Tour Europe Cedex 7, 92080 Paris La Defense, 
FRANCE. But you’ll find it perhaps easier to get it from ANSI. 

The registration procedure is spelled out in ISO Standard 2375. It is 
carefully controlled to prevent frivolity and cluttering up the assign¬ 
ment books, for that all costs money. But the important control and 
graphic sets of the world may be registered and assigned their own 
unique ESCape sequence for calling or invoking them. 


CODE EXTENSION—BASIC RULES 

The control ESC, when encountered in a datastream, means that all 
characters following it, up to and including the first character from 
sticks 3 to 7, have special interpretation. The delimiting character is 
called a “final” (F). Those between ESC and the final are called “in¬ 
termediates” (I). All of the codes in stick 2 can serve as intermediate 
characters in ESCape sequences of 3 or more characters in length. 
The entire group of characters from ESC through the final is called an 
ESCape sequence. 

ESCape sequences obviously require buffers for interpretation, for 
we cannot know, when they begin, how long they will be. Sequences 
of length 2 are for single controls. If the character following ESC is 
from stick 3, the sequences are for private usage, of the class Fp. If it 
is from sticks 4 or 5, they mean single controls, of the class Fe, from 
an appropriate set of 32. If from sticks 6 or 7 (except 7/15), they are of 
the class Fs, composed of single controls. This is elementary 
extension. 

A more complex type of extension is the simulation of one or more 
8-bit character sets by alternating between two 7-bit sets. The home 
base set consists of the CO (32 controls) set and the GO (94 graphics 
plus space and DEL). The alternate sets consist of the Cl (32 controls) 
set and the G1 (94 graphics plus space and DEL). The 8-bit set (it 
doesn’t have to be just theoretical if you have a full 8-bit capability) 
consists of the four parts C0-G0-C1-G1. 

These four types of sets are all invoked (designated) by 3-character 
ESCape sequences in this manner, where F is the final (3rd) character: 

Sequence Invokes Set Type 

ESC 2/1 F CO 

ESC 212 F Cl 

ESC 2/8 (or 2/12) F GO 

ESC 2/9 (or 2/15) F G1 
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The final character “F” selects the particular set to invoke. Once in¬ 
voked, encountering or entering an SO shifts to the G1 set in force; an 
SI shifts to the GO set in force. SO and SI do not affect the control set. 

ISO Standard 2022 defines these matters in far more detail, but that 
is enough for here. That document is complicated and ingenious, and 
deserves substantial study. 

THE CODE EXTENSION REGISTRY 

Table 5a identifies the graphic sets registered to date. Table 5b 
identifies the control sets registered to date. Remember that these 
assignments, once registered, may never be changed! 


Regis. 

F ina l 


No. 

Char. 

Name 

002 

4/0 

IRV (Inti. Reference Version) Graphics 

004 

4/1 

UK Graphics 

006 

4/2 

US Graphics (ASCII) 

008-1 

4/3 

NATS Main Graphic Set (Finland, Sweden) 

008-2 

4/4 

NATS Additional Set (Finland, Sweden) 

009-1 

4/5 

NATS Main Graphic Set (Denmark, Norway) 

009-2 

4/6 

NATS Additional Set (Denmark, Norway) 

010 

4/7 

Swedish Sasic Graphics 

011 

4/8 

Swedish Graphics for Names 

013 

4/9 

JIS Katakana Graphics 

014 

4/10 

JIS Roman Graphics 

015 

5/9 

Italian Graphics 

017 

5/10 

Spanish Graphics 

018 

5/11 

Greek Graphics 

019 

5/12 

Latin-Greek Graphics 

021 

4/11 

German Graphics 

025 

5/2 

French Graphics 

027 

5/5 

Latin-Greek Mixed.Graphics (Greek Capitals only) 

031 

5/8 

Greek Alphabet Set for Bibliographic Use 

For a GO set the ESCape sequence is 

ESC 2/3 plus the final shown. 

For a G1 set the ESCape sequence is 

ESC 2/9 plus the final shown. 


Table 

5a. Registered Graphic Character Sets 

Regis. 

Final 


No. 

Char. 

Name 




001 

4/0 

ISO 646 Controls 

007 

4/1 

Scandinavian Newspaper Controls 

026 

4/3 

IPTC Controls 


The ESCape sequence for a CO set is 
ESC 2/1 plus the final shown. 

Table 5b. Registered Control Character Sets 

The registry set is available from AFNOR for approximately 172 
French francs, say $35. It would be vital for an equipment or software 
manufacturer to have it, and it comes in a beautiful 4-ring binder sym- 
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bolizing worldwide interchange compatibility. But the summary pro¬ 
vided here will fill most needs. 

CONTENT OF THE EXTENDED SETS 

Figure 15a shows, against the ISO Code, International Reference 
Version, how the other graphic sets differ in the column/row positions 
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Figure 15a. Registered Graphic Character Substitution 

008-2 and 009-2 are shown in Figure 15b. Here these are not excep¬ 
tions from the IRV, but rather the only graphics assigned in the set. 
The additions are necessary to set type for newspapers throughout 
Scandinavia. See the Crossbar-D, Crossbar-O, the A-E ligature, and 
the Icelandic Thorn. 


col 

■ 


■ 


06 

07 1 

row 



ES 

m 

ES 

B 

m 

SQ 


ES 


ES 

B 

m 

008-2 

□ 

□ 

m 

□ 

B 

□ 

□ 

B 

B 

B 

E3 

B 

B 

□ 

009-2 

■ 

D 

□ 

H 

□ 

B 

□ 

B 

B 

B 

B 

□ 

B 

B 

B 


Figure 15b. Registered Additional Graphic Sets 
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shown. The rows are keyed to Table 5a, reminding you that ASCII is 
“006,” or ISO 646-006.” 

From this figure we can see that many countries need accented let¬ 
ters as individual characters, not compound via BS (Backspace). This 
is particularly true for the double sets 008 and 009, for Scandinavian 
newspaper transmission, which have characters that cannot be made 
from ASCII in compound form. For example—Ring-A, a solid, and the 
angle open and closed quotes. 

Figure la doesn’t show Set 031 because it deviates more and is not 
of that much general interest. It doesn’t show the Japanese Katakana 
set because that is completely different from the IRV. In fact, 
Japanese Industrial Standard C6220-1969 is an 8-bit coded set with 
the IRV (see Set 014 for the dollar and yen signs) in the lower (bit 8 = 0) 
portion, and Set 013 in the higher portion, with space reserved for 
future additional controls. This Set 013 is shown in Figure 16. It is 
shown in its high-order position, to indicate the card codes at the 
same time. 

Figure 16 also shows the Cyrillic set of the USSR state standard 
GOST 13052-67, but it is not half of an 8-bit set as the Japanese do it. 
Rather it is another page of extensions. After SO (Shift Out) is used, 
the Russian register is operative. Following SI (Shift In) it is the IRV. 
Although this set has no registry number now, it was submitted 
recently by ECMA, and we expect an assignment soon. By the way, 
both Katakana and Cyrillic are shown in their OCR font. 

Figure 17 shows the contents of the registered control sets. Set 007 
serves as control set for the graphic sets 008-1,2 and 009-1,2 for Scan¬ 
dinavian newspaper transmission. And set 026 is the control set for 
the worldwide newspaper transmission, defined by the IPTC (interna¬ 
tional Press Telecommunications Council). The 18 control positions 
not shown, and those where there is no entry, are the same as in the 
International Reference Version (646-001). 

These newspapers are driving composition equipment, not line 
printers, so they don’t need VT and FF. Their set is already defined, so 
they don’t need SO and SI. They have (properly) assigned meaning to 
three device controls. And they’re probably not doing payroll, so they 
don’t need the four information separators. But they do transmit, and 
instead of choosing their own functions and placement they have 
chosen to be a registered variant of the ISO Code. And all variants 
within this controlled and registered cluster can at least recognize 
each other, even if they can’t print it! 

CODE EXTENSION IN ACTION 

To illustrate the operation of code extension, let’s imagine some 
equipment that may not exist now: 

• A microfiche reader with automatic location controls. 

• A microfiche with ASCII (the 8-bit form) on the first two pages, the 

other pages containing other sets such as Katakana, Cyrillic, 

Arabic, Greek, Hebrew, mathematical symbols, astronomical sym- 
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Figure 16. Katakana and Cyrillic Sets 


bols, etc. Also, symbol sets for selecting typestyles, weights, rota¬ 
tions, sizes, and elongations. 

• A display screen for the microfiche; it is touch-sensitive and 
generates 7-bit codes according to location touched on the display. 

• As an alternative, keyboard tops with fibre optic bundles molded in 
as a matrix, so that the keytops can be lighted with different sym¬ 
bols as selected. 

Now imagine that we are writing an astrology book: 

• Type 

Those of you born under the sign of Aries ( 

• Depress the “astro” key on the special keyboard. 
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IRV 


Position 

001 

007 

026 




0/09 

HT 

F0 

F0 


Format Control 


0/11 

VT 

ECO 

ECO 


End (a typographical) 

Comma no 

0/12 

FF 

SCO 

SCO 


Start ( " ) 

CommanD 

0/13 

CR 

QL 

QL 


Quad Left 


0/14 

SO 

OR 



Upper Rail 


0/15 

SI 

LR 



Lower Rail 


1/01 

DC1 


Font 

1 

Change to normal 


1/02 

DC2 


Font 

2 

Change to italic 


1/03 

DC3 


Font 

3 

Change to bold 


1/08 

CAN 

KW 

KW 


Kill Word (through previous space) 

1/12 

FS 

SS 

SS 


SuperShift 


1/13 

GS 

QC 

QC 


Quad Center 


1/14 

RS 

QR 

QR 


Quad Right 


1/15 

OS 

JY 

JY 


JustifY 



Figure 17. Registered Control Character Substitution 

• Notice the shift in display for the fiche screen and/or the keytop 
lighting. 

• Touch the Aries symbol on the screen (or the keytop). 

• Depress SI (Shift In) on the special keyboard. 

• And return to typing the rest of the sentence. 

) will find this month... 

Now imagine what a computer would do to the input stream In driv¬ 
ing photocomposition equipment. The “astro” key generated an 
ESCape sequence for an astronomical graphic symbol set that would 
have been registered by AFNOR. When the input parser recognizes 
ESC, it analyzes the following characters, and then calls this set of 
character formation methods from the backup store, generates the 
character shape of Aries according to the character code after the 
final character, notices SI, and returns to normal mode. 

Now we can envision how all of the world’s printed material can be 
stored in machine-readable form, and interchanged recognizably! 

ALTERNATE CONTROLS 

Work has been in progress for several years to develop a compan¬ 
ion standard for controls for devices such as CRT terminals. In the US 
this is contained in the ANSI document BSR X3.64, Additional Con¬ 
trols for Character Imaging. In a similar form, this Cl set was before 
the Codes Committee of ISO Technical Committee 97 (Computers and 
Information Processing) as document 2 N 868, for consideration at its 
1978 May 24-26 meeting. 

I had hoped to give the essence of this work here. There were only 
two negative votes in X3, which one could presume might be 
answered. Unfortunately, the work I had to do to compact the stan¬ 
dard, trying to make it understandable, turned up more than 
unreadabllity. It turned up many logical flaws and ambiguities. So it’s 
back to the drawing board, perhaps for a considerable period of time. 
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Figures 18a through 18e will give, however, some flavor of the con¬ 
trols under consideration. 

Figure 18a shows the controls of Format Type (FT) 1 and 2. Format 1 
is either the single character of the 8-bit set, shown in the first column 
as “Ce”, or the 2-character sequence of the type “ESC Fe”, where Fe 
is a final character taken from 4/00 to 5/15, and whose column 
designation is 4 less than Ce. I.e., in an 8-bit code, INDex would be 
8/04. In a 7-bit code it would be ESC 4/04. Format 2 is of the type “ESC 
Fs”, where Fs is a final taken from 6/00 to 7/14. 

Figures 18b through 18e show controls with formats beginning with 
the control “CSI”, defined in Figure 18a to be either 9/11 (in the 8-bit 
set) or “ESC [” (in the 7-bit sets). The six possible formats are: 

3a = CSI Pn F 4a = CSI Pn I F 

3b = CSI Pn ; Pn F 4b = CSI Pn ; Pn I F 

3c = CSI Ps F 4c = CSI Ps I F 

Pn stands for numeric parameter(s), Ps for a variable number of selec¬ 

tive parameters separated by semicolons. The type 4 formats differ 
from type 3 only in inserting the intermediate character 2/00 just prior 
to the final. 

In the figures, the parameter value enclosed in parentheses is the 
default value. That is, if the parameters are not actually inserted, i.e., 
being null, then the effect is the same as if the default value(s) were 
inserted. 

To give an example of how these controls operate, look in Figure 
18d for the second mnemonic, SGR (Select Graphic Rendition). It is 
represented first by CSI, the Control Sequencer Introducer, the 
parameter, and the final 6/13. This means that when the 4-character 
string 

ESC [ 6 m 

is encountered, it should turn on rapid blink in the field(s) specified on 
your video screen. 

AL = Active Line (containing AP) 

AP = Active Position (where the cursor is) 

EF = Editor Function 

FE = Format Effector 

HT = Horizontal Tabulation 

IN = INtroducer 

PAD = Primary Auxiliary Device 

RD = Received Datastream 

SAD = Secondary Auxiliary Device 

SD = String Delimiter 

VT = Vertical Tabulation 

QA = Qualified Area (defined by DAQ, SPA, EPA) 
rfs = reserved for future standardization 


Abbreviations for Figures 18a through 18e 
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Ce 

FT 

Type Param 

Mnem 

Name 

8/00-03 

1 



(rf s) 

8/04 

1 

FE 

IND 

INDex 

8/05 

1 

FE 

NEL 

NExt Line 

8/06 
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SSA 

Start of Selected Area 

8/07 
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ESA 

End of Selected Area 
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HTS 

Horizontal Tabulation Set 

8/09 

1 

FE 

HTJ 

Horiz. Tabul. with Justification 
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FE 

VTS 

Vertical Tabulation Set 

8/11 
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PLD 

Partial Line Down 
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FE 

PLU 

Partial Line Up 
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FE 
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Reverse Index 

8/14 

1 

IN 

3S2 

Single Shift 2 
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1 

IN 

SS3 

Single Shift 3 
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1 

SD 

DCS 

Device Control String 

9/01 
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PU1 

Private Use 1 

9/02 
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PU2 

Private Use 2 

9/03 

1 


STS 

Set Transmit State 

9/04 
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CCH 

Cancel CHaracter 

9/05 
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MW 

Message Waiting 

9/06 
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SPA 

Start of Protected Area 

9/07 
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EPA 

End of Protected Area 

9/08-10 

1 



(rf s) 

9/11 

1 

IN 

CSI 

Control Sequence Introducer 

9/12 

1 

SD 

ST 

String Terminator 

9/13 

1 

SD 

OSC 

Operating System Command 

9/14 

1 

SD 

PM 

Privacy Message 

9/15 

1 

SD 

APC 

Application Program Command 


Fs_ 

ft 

Mnem 

Name 

6/00 

2 

DMI 

Disable Manual Input 

6/01 

2 

I NT 

INTerrupt 

6/02 

2 

EMI 

Enable Manual Interrupt 

6/03 

2 

RIS 

Reset to Initial State 


Figure 18a. Controls for Character-Imaging Devices 
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CUrsor Up 
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Cursor 

Horizontal Tabulation 
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3c 

EF 
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Erase 

in Display 


From AP to end (inclusive) 
From start to AP (inclusive) 
All of display 


( 0 ) 

1 
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4/11 

3c 

EF 


EL 

Erase in Line 




(0) 


From AP to end (inclusive) 




1 


From start to AP (inclusive) 




2 


All of line 

4/12 

3a 

EF 

(1) 

IL 

Insert Line 

4/13 

3a 

EF 

(1) 

DL 

Delete Line 

4/14 

3c 

EF 


EF 

Erase in Field 




(0) 


From AP to end (inclusive) 




1 


From start to AP (inclusive) 




2 


All of field 

4/15 

3c 

EF 


EA 

Erase in Area 




(0) 


From AP to end (inclusive) 
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From start to AP (inclusive) 
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All of QA 
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3a 

EF 

(1) 

OCH 

Delete CHaracter 

5/01 
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SEM 

Select editing Extent Mode 
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Edit in AL 
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Edit in field 
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Edit in QA 
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Cursor Position Report 
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(1) 

SU 

Scroll Up 
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Scroll Down 
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Next Page 
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Preceding Page 
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Cursor Tabulation Control 
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Set HT stop at AP 
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Set VT stop at AL 
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Clear HT stop at AP 
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Clear VT stop at AL 
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Clear all HT stops in AL 
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Clear all HT stops in device 
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Clear all VT stops in device 
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(1) 
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Erase CHaracter 

5/09 

3a 

EF 

(1) 

CVT 

Cursor Vertical Tabulation 

5/10 

3a 
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CBT 

Cursor Backward Tabulation 


Figure 18b. Controls for Character-Imaging Devices 
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Horizontal Position Absolute 

6/01 

3a 

FE 

(1) 

HPR 

Horizontal Position Relative 

6/02 
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(1) 

REP 

REPeat 

6/03 
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(0) 

DA 

Device Attributes 

6/04 

3a 

FE 

(1) 

VPA 

Vertical Position Absolute 

6/05 

3a 

FE 

(1) 

VPR 

Vertical Position Relative 

6/06 

3b 

FE 

(1; 1) 

HVP 

Horiz. and Vertical Position 

6/07 
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TaBulation Clear 
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Clear HT stop at AP 
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2 
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Clear all VT stops 
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6/08 3c 


6/09 3c 



SM 

Set Mode 

1 

GATM 

Guarded Area Transfer Mode 

2 

KAM 

Keyboard Action Mode 

3 

CRM 

Control Representation Mode 

4 

IRM 

Insertion-Replacement Mode 

5 

SRTM 

Status Reporting Transfer Mode 

6 

ERM 

ERasure Mode 

7 

VEM 

Vertical Editing Mode 

8 


(rf s) 

9 


(rf s) 

10 

HEM 

Horizontal Editing Mode 

11 

PUM 

Positioning Unit Mode 

12 

SRM 

Send-Receive Mode 

13 

FEAM 

Format Effector Action Mode 

14 

FETM 

Format Effector Transfer Mode 

15 

MATM 

Multiple Area Transfer Mode 

16 

TTM 

Transfer Termination Mode 

17 

SATM 

Selected Area Transfer Mode 

18 

TSM 

Tabulation Stop Mode 

19 

EBM 

Editing Boundary Mode 

20 

LNM 

Line feed New line Mode 


MC 

Media Copy 

(0) 


To PAD 

1 


From PAD 

2 


To SAD 

3 


From SAD 

4 


Turn OFF copying RD to PAD 

5 


Turn ON copying RD to PAD 

6 


Turn OFF copying RD to SAD 

7 


Turn ON copying RD to SAD 


Figure 18c. Controls for Character-Imaging Devices 
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Ready, no malfunctions detected 
Susy - retry later 
Busy - DSR will notify ready 
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Malfunction - retry 
Malfunction - DSR will notify rea 
Please report status (DSR or DSC) 
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DAQ Define Area Qualification 
Accept all input 
Accept no input (protected); 
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Accept alphabetics 
Right justify in area 
Zerofi ll in area 
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Accept no input (protected); 

permit transmit (unguarded) 
Spacefill in area 


Figure 18d. Controls for Character-Imaging Devices 
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SL 

Scroll Left 

4a 

EF 

(1) 

SR 

Scroll Right 

4b 

FE 

(100; 

100)GSM 

Graphic Size Modification 

4a 

FE 


GSS 

Graphic Size Selection 

4b 

FE 

(0;0) 

FNT 

FoNT selection 



(0;0) 


Primary font 



i ;0 


First alternative font 



9;0 


Ninth alternative font 

4a 

FE 


TSS 

Thin Space Specification 

4c 

FE 


JFY 

JustiFY 



(0) 


Terminate all justify actions 



1 


Fill action ON 





(text to/from other lines) 



2 


Interword spacing 



3 


Letter spacing 



4 


Hyphenation 



5 


Flush Left margin 



6 


Center text between margins 



7 


Flush right margin 



8 


Italian form (underscore last! 

4b 

FE 


SPI 

SPacing Increment 

4c 

FE 


QUAD 

Quad 



(0) 


Flush left 



1 


Flush left, fill with leader 



2 


Center 



3 


Center, fill with leader 



4 


Flush right 



5 


Flush right, fill with leader 


Figure 18e. Controls for Character-Imaging Devices 
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CODE EXPANSION 

We have seen how ASCII was extended by making many related 
pages of the 7-bit code. It is also possible to expand ASCII into an 
8-bit code, or even 9-bit and 10-bit if we wished, for that matter. But an 
8-bit code is obviously the most logical one to concentrate on, and 
this has been under development for several years. 

The proposed 8-bit Expanded ASCII Code is shown in Figure 19. The 
identification of the graphic symbols is given in Table 6. 

One can observe many interesting things about this set. For exam¬ 
ple, it has the entire Greek set of small letters except for “omicron,” 
with eleven capitals to go with others from the Roman capitals to 
complete the Greek set. But apparently the committee didn't follow 
646-031, the Greek alphabet mentioned in Table 5a. They didn’t use 
the customary ordering "alpha-beta-gamma,” the way we learn our 
“a-b-c’s.” I suppose it is argued that this set will never be used for 
language, only math symbols. And 646-027, shown in Figure 15a, does 
not demand the special capital “upsilon” shown in position 13/5. if the 
Greeks can agree to using a Roman capital “Y” for upsilon, could the 
Americans? 

You’ll notice some math symbols, but not enough for APL. In fact, 
the whole set seems highly slanted to mathematics, rather than 
business. Of course there are the four corner symbols for forms. 
Presumably the card suits will strike your eye, and you will wonder 
why so many other useful symbols were ignored in favor of these. 
Don't worry, they will always come in handy; it’s sometimes useful to 
have symbols whose meaning you can reassign without harm to pro¬ 
gramming languages, etc. The committee were obviously bridge 
players, for spades collate high. 

This proposal has not had real public scrutiny yet, and it must be 
considered no more than a proposal. Presumably X3 will agree about 
July that it should be sent out for public review and letter ballot. My 
guess is that it will not be adopted in just the form you see here. 

FUTURE FOR ASCII 

The methods are in place for codifying all symbols that people use. 
They may be language alphabets, signs, drawing symbols, or controls 
for equipments. Robots, for example. Satellites are augmenting con¬ 
ventional telecommunications systems, so that one can borrow 
cheaply and permanently from electronic libraries. 

To prepare for this, other sets are being developed for registry, 
many through ISO Technical Committee 46/1, Automated Documenta¬ 
tion. A 2-page mathematical symbol set is near submission, as are 
African sets. Work is started for Arabic, which will take about 5 sets to 
handle fully, although there is a commercial subset of 94 graphics. 
Another Cl set is being proposed for bibliographic controls. It con¬ 
tains four types—annotation controls, filing controls, reference con¬ 
trols, and subject designators. Other Cl sets can come from process 
control, animation and other graphics applications, etc. 
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Code 

Symbol 

Code 

SymboL 

10/00 

(same as 02/00) 

11/00 

Large circle 

10/01 

Opening double quote 

11/01 

Dagger 

10/02 

Closing double quote 

11/02 

Superior (superscript) 2 

10/03 

Club suit 

11/03 

Superior (superscript) 3 

10/04 

Diamond suit 

11/04 

Rect ang Le 

10/05 

Heart suit 

11/05 

Paral le l 

10/06 

Spade suit 

11/06 

Partial derivative 

10/07 

Closing single quote 

11/07 

Lower left corner, floor 

10/08 

Is implied by 

11/08 

Upper left corner, ceiling 

10/09 

Implies 

11/09 

Upper right corner 

10/10 

Mult iply 

11/10 

Lower right corner 

10/11 

Plus or minus 

11/11 

Perpendi cu lar 

10/12 

Nabla, or del 

11/12 

Less than or equal 

10/13 

Em dash 

11/13 

Not equal, other than 

10/14 

Radix point 

11/14 

Greater than or equal 

10/15 

Divide 

11/15 

Paragraph mark, pilcrow 

12/00 

Section mark 

13/00 

Capital pi 

12/01 

Double dagger 

13/01 

Capital psi 

12/02 

Dot bullet 

13/02 

Square bullet 

12/03 

Capital theta 

13/03 

Capital sigma 

12/04 

Capital delta 

13/04 

Integral 

12/05 

At least one exists 

13/05 

Capital upsiIon 

12/06 

Capital phi 

13/06 

Therefore 

12/07 

Capital gamma 

13/07 

Capital omega 

12/08 

Upward arrow 

13/08 

Downward arrow 

12/09 

Right arrow 

13/09 

Left arrow 

12/10 

Dot product 

13/10 

Approximately equal 

12/11 

Degree 

13/11 

Opening angular bracket 

12/12 

Capital lambda 

13/12 

Logical AND 

12/13 

Regi ster 

13/13 

Closing angular bracket 

12/14 

Copyright mark 

13/14 

Logi ca l NOT 

12/15 

Capital xi 

13/15 

Infinity 

14/00 

Opening single quote 

15/00 

Small pi 

14/01 

Small alpha 

15/01 

Small psi 

14/02 

Small beta 

15/02 

Small rho 

14/03 

Small theta 

15/03 

SmaLI sigma 

14/04 

Small delta 

1 5/04 

Small tau 

14/05 

Small epsiIon 

15/05 

Small upsiIon 

14/06 

Small phi 

15/06 

Check mark, radical mark 

14/07 

Small gamma 

15/07 

Small omega 

14/08 

Small eta 

15/08 

Small chi 

14/09 

Small iota 

15/09 

Logical universal quantifier 

14/10 

Identically equivalent 

15/10 

Small zeta 

14/11 

Small kappa 

15/11 

Cap intersection 

14/12 

Small lambda 

15/12 

Logica l OR 

14/13 

Small mu 

15/13 

Cup, union 

14/14 

Small nu 

15/14 

Ove rbar 

14/15 

Small xi 

15/15 

(same as 7/15) 


Table 6. Names of the Additional Graphics, 8-Bit Set 
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Figure 19. 8-Bit ASCII Proposal 


West Germany has proposed a new ISO Project on text communica¬ 
tion, to harmonize teleconnection of the more than one hundred 
varieties of typewriters (and keyboards) throughout the world. The ex¬ 
tension method of multiple 7-bit codes is ideal for this (8-bit codes im¬ 
ply too many keys or shift combinations for people to use easily). 

I am convinced that microcomputer users are going to develop 
some fantastic applications that will become widespread enough for 
their special graphic and control sets to be registered. How about a 
control set or two for sewing machines? 

In fact, it is very difficult ot think of any general application where 
one could not find a usage for these registered variants and 
extensions. 

WHERE TO GET MORE INFORMATION 

There are four sets of Information Processing Standards that may 
be of concern to you: 

• ISO. Sold only through ANSI (American National Standards Insti¬ 
tute), which has the franchise. That makes the prices high—much 
higher than in other countries. 

• ANSI. These are American National Standards developed via the X3 
and X4 committees, mostly. Prices still pretty high. 

• ECMA (European Computer Manufacturers Association), 114 Rue 
du Rhone, 1204 Geneva, Switzerland). Free, and they have a lot more 
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advanced standards than ISO and ANSI. But a modest donation 
would not be unwelcome. 

• Your friendly U.S. Government, in the person of the Department of 
Commerce, National Bureau of Standards, Institute for Computer 
Sciences and Technology, in Gaithersburg, MD 20760. If by any 
chance you are employed by the U.S. Government, you get FIPS 
PUBS (Federal Information Processing Standards Publications) for 
cheap. Otherwise, see ANSI. (Refer to Tables la, 1b, and 1c). In 
many cases they are essentially reprints of the ANSI standards, for 
a fraction of the cost. 

If you can’t wait for the standards to be approved and published, 
catch them in progress. Ask CBEMA, the sponsor of ANSI X3, to put 
you on an observer list for the committee in your area of interest. The 
address is: 

Director of Standards 

Computer & Business Equipment Manufacturers Association 
1828 L Street NW 
Washington, D.C. 20036 
(202) 466-2288 
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FOOTNOTES 

’ For those curious about the reverse slash, it came from ALGOL 58. The 
reference language specified A and V as the symbols for AND and OR 
respectively. I put the reverse slash in so these could be made as 2-character 
groups—A and \/. 

1 You will still see many terminals where this vertical bar is broken in the mid¬ 
dle. This resulted from a hassle with the PL/I people, who wanted to stylize 
the exclamation point (2/1) as a vertical bar for OR in that language. And of 
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course that would make the graphics the same. The compromise (at horren¬ 
dous cost in people time) was to break the real vertical bar in ASCII. But it 
turned out that the PL/I people didn’t really need it, or else it gained no 
momentum, so the real vertical bar is back to normal in ASCII-1977. Let’s fix 
those terminals. 

3 The Italians also have a different solution to hyphenation and right justifica¬ 
tion. It ignores the syllable structure and simply demands that if, when you 
get to the last position in the line, the current word is not yet completed, that 
last character shall be underscored, and the word continued without fuss on 
the next line. I rather like it. 

4 With the distribution, ECMA said “ECMA-53 is an attempt to improve por¬ 
tability of programs. It links the language character sets defined by the 
language standards, their coded representatives by means of the 7-bit code 
and the implementations on data carriers (punched tape, punched cards, 
magnetic tape and magnetic tape cassettes and cartridges). It is a standard 
of a new type in which already standardized features are assembled in a new 
standardized combination aimed at supporting interchange and decreasing 
implementation dependency.” 

‘ ISO 2530 is for the alphanumeric area of the keyboard only. It is augmented 
by ISO 3243-1975—Keyboards for Countries whose Languages have Alpha¬ 
betic Extenders, Guidelines for Harmonizations, and also by ISO 3244-1974— 
Principles Governing the Positioning of Control Keys on Keyboards. 

The fact that these are “guidelines” and “principles” indicate the com¬ 
plexity of the subject. Typewriter manufacturers now supply over a hundred 
different keyboard arrangements, as their catalogs will indicate. 



Chapter 2 


BASIC Cross Assembler 
for the 8080 

By Peter Reece 


INTRODUCTION 

A cross assembler is a high level language program which 
assembles low level code for a goal computer. Since the host machine 
is usually much larger than the goal computer, code which is too long 
to be assembled in the smaller machine can be easily handled by the 
cross assembler. The binary tape which is produced can then be 
loaded directly into the goal computer. 

CROSS 

The cross assembler reproduced on the following pages is written 
in BASIC for a PDP-10 computer, and will accept and assemble code 
for 8080-based computers. It allows the user to produce ASCII listings 
in octal or HEX of his source code, define variables for a symbol table, 
and generate a binary file of the assembled source. 

The program requires two passes (i.e., it reads the source code 
twice), hence random access files are not required. This permits the 
user with a smaller secondary memory, such as sequential cassette 
storage, to use the system. In addition, much less storage space for 
variables is required by the host computer. 

The first pass scans each line of source looking for an OPCODE. If 
one is found, the address pointer a(i) is advanced an appropriate 
number of bytes. If a comment only, or an equate or origin line is 
found, a(i) is set equal to a(i-1), where ‘i’ corresponds to the previous 
statement number. Pass One also creates a symbol table of all labels 
and equates with user defined mnemonics. 

Pass Two translates OPCODES and their arguments into octal, and 
outputs the results in both a binary file (as address, byte one, byte 
two, byte three) and an ASCII form (see example in Figure 1). All 
translation is initially done into octal. If all attempts at translation 
fail, byte one is set equal to ‘777’ (i.e. an extra bit is flagged), the error 
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options: 

?hex 

list 

If 



adrs 

op 

b2 

b3 



00000 




/ 


00000 




/Here’s a simple do-nothing 

00000 




/example of the program. 

00000 




/ 


00006 




*7#d 


00007 

31 

3D 


start: txisp'61#d 

/label line 

0000A 

AF 



xra a 


0000B 

47 



mov b'a 

/“'” is a separator 

OOOOC 

21 

08 


ok: txih'load 

/fwd ref 

0000F 

48 



mov c'b 


00010 

0E 

24 


write: mvic'44#o 

/octal num 

00012 

21 

08 


Ixi h'load 


? 00015 

* * 

48 


xra j 

/note error code 

00016 

0E 

0A 


mvi c '$j 

/alpha-num conversion 

00018 

D5 



push d 


00019 

76 



end: hit 






load = 10#o /equate line 

start - 07 






O 

o 

II 

o 






write = 10 






end = 19 






load = 08 







# ERRORS = 1 


options: 

adrs 

?octal 

op 

list 

b2 

If 

b3 



0 

0 

0 

0 

/ 


0 

0 

0 

0 

/Here’s a simple do-nothing 

0 

0 

0 

0 

/example of the program. 

0 

0 

0 

0 

/ 


6 

0 

0 

0 

*7#d 


7 

61 

75 

0 

start: Ixi sp'61#d 

/label line 

12 

257 

0 

0 

xra a 


13 

107 

0 

0 

mov b'a 

/“'” is a separator 

14 

41 

10 

0 

ok: Ixi h'load 

/fwd ref 

17 

110 

0 

0 

mov c'b 


20 

16 

44 

0 

write: mvic'44#o 

/octal num 

22 

41 

10 

0 

Ixi h 'load 


? 25 

1027 

88 

0 

xra j 

/note error code 

26 

16 

12 

0 

mvi c'$j 

/alpha-num conversion 

30 

325 

0 

0 

push d 

31 

start = 7 
ok = 14 
write = 20 
end = 31 
load =10 

166 

0 

0 

end: hit 

load = 10#o 

/equate line 


# ERRORS = 1 


Figure 1 
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Below is a simple example of the use of the program: 

OPTIONS? octal-lf-nobin-list 


adrs 

op 

b2 

b3 



0 

0 

0 

0 

/ 


0 

0 

0 

0 

/ 


0 

0 

0 

0 

/Here's a do-nothing 


0 

0 

0 

0 

/sample output from 


0 

0 

0 

0 

/the prog CROSS. 


0 

0 

0 

0 

*1 


1 

61 

0 

4 

start: Ixi sp'stack 

/set stack 

? 4 

777 

100 0 

Ibl h 'buffer 

/set buffer 

7 

176 

0 

0 

strtl: mov a'm 





'o 

/Note that CROSS automatically 
/sets the spacing of the output. 

/The tabs were not in the source. 

10 

315 

26 

call write 


13 

176 

0 

0 

mov a'm 

/finished? 

14 

376 

166 0 

cpi 166#o 


16 

302 

22 

0 

jnz strt2 

/nope 

21 

166 

0 

0 

hit 

/yes 

22 

16 

11 

0 

strt2: mvi c'i$ 

/ascii char 

24 

166 

0 

0 

hit 



/ 

/ 

stack = 2000#o 
buffer= 100#o 
write = 26 
/ 

/ 

start = 1 
strtl = 7 
strt2 = 22 
buffer = 100 
stack = 2000 
write = 26 

# ERRORS = 1 

options: ?show 
/ 

/Here’s a simple do-nothing 
/example of the program. 

/ 

*7#d 

start: Ixi sp'61#d /label line 

xra a 

mov b'a is a separator 
ok: Ixi h'load /fwd ref 
mov c' b 

write: mvl c'44#o /octal num 

Ixi h'load 

xra) /note error code 
mvic'Sj /alpha-num conversion 
push d 
end: hit 

load = 10#o /equate line 
.end 

ox = 32#d /equate line 
imp write 
end: hit 
.end 

options: ?end 


Figure 1 continued 
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count is increased by one, and Pass Two continues. If, during a listing, 
a ‘777’ is encountered in byte one, a question mark is output beside 
the line being listed. The accompanying flow charts indicate the pro¬ 
ceedings during the two passes. (See Figures 2 and 3) 

Use of the program is straight forward. A number of options are 
available: 

$ The character immediately preceeding the 

dollar sign in a line of source will be 
translated into octal, with the ASCII letter ‘a’ 
being translated as ‘001’ and ‘z’ as ‘032’. 

# If followed by a ‘d’, the numeric preceding 

the '#’ will be translated into octal from 
decimal; if followed by ‘h’, the translation 
will be from HEX to octal; if followed by ‘o’, 
the numeric will be assumed to be octal. 

Any ASCII string preceding a colon will be 
assumed to be a label, and will be entered in 
the symbol table. 

The right hand side of an equate will be 
translated into octal, and set equal to the 
left hand side as an entry in the symbol 
table. 

A slash is followed by a comment. 

An asterisk precedes a numeric expression 
which is to be used as an origin address. 

Occurs beside all untranslatable lines of 
output. 

If a user wishes output to be listed in HEX, 
type this when the program types ‘Options:’, 
(default condition)—output is listed in octal 
if this option is chosen. 

Choosing this option produces seven line 
feeds per 66 lines of output, thereby produc¬ 
ing 66 lines per 9* 11-inch page. 

Suppresses LF (default option). 

Lists assembled code beside each line of 
source at the end of Pass Two (default 
option). 

Suppresses ‘list’. 

This option produces an output file which 
may be read by the goal computer. For each 
line of source which is not a comment or an 
origin or equate line, ‘BIN’ produces the cur¬ 
rent address, byte one, byte two, byte three, 
and a carriage return (default option). 


/ 

* 

? 

HEX 

OCTAL 

LF 

NOLF 

LIST 

NOLIST 

BIN 
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NOBIN Supresses ‘BIN’. 

SHOW Print the source listing; do not assemble it. 

END End the program. 

MAKE To create a source file, type “make” when 

the program starts, then type your source 
(one line of source per input line). Terminate 
“make” with the line “end”. 



Figure 2 
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Figure 3 


PROGRAM LISTING 


lOrem********************************************************** 

20rem* 

30rem» A BASIC LANGUAGE CROSS-ASSEMBLER FOR THE INTEL 8080 UP 
4 Orem* 

50rem* by P. Reece, 1977 

60rem* 

70rem********************************************************* 1 
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80 rem 

90 rem 

lOOrem •**»»»»«**»»»•*»»» 

HOrem • BASIC VERSION: * 

120rem »»*»•******»*****• 

130rem PDP-10 Basic is used. Functions are as follows: 

I40rero 1) n=instr(a$,b$). This returns n equal to the 
150rem position of the 1st letter of a$ which matches the 
l60rem string b$. Eg. n=instr("abcd","bc") returns n=2. 

170rem If no match is found, n is returned as zero. 
l80rem 2) n$=mid$(a$,a,b). N$ is returned equal to the substring 
190rem of a$ begining with character a, and extending for b characters. 
200rem Eg. n$=mid$("abode",3.2) returns n$="de". 

21Orem 3) n$=chr$(a). Converts the integer a to the ascii string 
220rem n$. Eg. n$=chr$(56) returns n$="A" (PDP-10 ascii). 

230rem 4) n$=str$(a). Converts the integer a to its a§cii equivelent. 

240rem Eg. n$sstr$(12) returns n$="12". 

250rem 5)n=val(a$). Converts the integer ascii a$ to an integer. 

260retn Eg., if a$="12", then n is returned equal to 12. 

270rem NOTE: The array a(») must be set equal to the number of statements 
280rera in the source. For most programs, this is generally not more than 
290rera 500 statements, so a(500) is sufficient. If an output file is to be 
300rem gnerated (via the 'bin' command), the dimensions on r1(*), r2(*), and 
310rem r3(*) must also be set. Otherwise, they may be left small if only a 
320 rem listing and assembly is desired. 

330rem 

340rem » CC*MANDS * 

350rem •*•»»**•**»• 

360rem hex: produces hex listing 

370rem octal: produces octal listing (default) 

380rem If: prints 7 lf's every 66 lines of listing 

390rem nolf: cancels If (default) 

400rem nolist: suppresses listing 

4l0rem list: gives listing (default) 

420rem nobin: suppresses output file 

430rem bin: creates output file (default) 

440rem symbol: prints symbol table of pass#!, then stops 
450rem make: create a source file 

460rem .end: temimate a source file (used during make) 

470rsn end: terminate the program 

480rem show: list the unassembled source 

490rem «»»•*«»••***#•»»»*»*»» 

500rem * SPECIAL CHARACTERS • 

510reci **•»•*••*»*••••••••••• 

520rem $ the next char is ascii 4 will be translated to octal 

530rem : a label preceeds a colon 

540rem # follows a nuneric 

550rem d follows a if the nuneric is decimal 

560rem o follows a '#' if the nuneric is octal 

570rem h follows a if the nuneric is hex 

580rem * preceeds a numeric which is to be used as an origin 

590rem / preceeds a comment 

600rem = indicates an equate line of source 

6l0rem ? indicates an error in assemblage 

620rem ** indicates a hex number too large for the listing 

690r«n Uft ^t.h a '?' for a hex listing, indicates the error byte 

640rem 777 as above for '48', but for an octal listing 
650rem**^*■■•»■• 

660rem* OPTIONS * 

670reln•* t * M,l * ,l,l ***** ,l,l *** ,l *** 

680rem Options in effect if switches = 1: 

690rem 01: hex listing 

700rem o2: suppress listing 

71Orem o3: suppress binary output 

720rem o4: generate 7 LFs every 66 lines 

730rem o5: list symbol table, then stop 

740rem 06 : 'make' a source file 
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750rem****»*»•»»»**»»»»««*»•»** 

760rem* DEFINITIONS * 


780rem r$(*)= 
790rem rl(*)= 
800 rem r2(*) = 
81Orem r3(»)= 
820rem a(«)= 
830rem s$(»)= 
840rem s1(*)= 
850rem rn$ (*) = 
860rem h2$(*)= 
870rem bis 
880rem b= 
890rem e1 = 
gOOrem********* 


registers 
byte #1 
byte #2 
byte #3 

decimal address of each source line 

symbol table 

octal of s$(») 

binary of dec 1 -> 7 

array of hex digits 

pointer for s$(*),s1(*) 

pointer for a(») 

nunber of assemble errors 


910rem There are two Tiles - a source file, and an output file. 

920rem The output file will contain the assembled octal of the source 
930 rem in the format: address-lst byte-2nd byte-3rd byte-carriage return. 
940rem The address is 6 digits, the bytes are each 4 digits long. 

950rem All files are sequentially read {i.e. no direct access is used) 
960rem to ensure that non-disc systems can also use the program (i.e. 
970rem a cassette oriented Basic could also use the cross-assembler). 
980rem* INITIALIZE » 

990rem***** wl ***»*ssss***«»»OM«M»»» 
lOOOfiles s8080.bas$80,o8080.bas$80 
1010dimr$(8),r1(100),r2(100),r3(100) 

1020dima(200),s$(50),s1(50),m$(8) 

1030dimh2*(l6) 

1040fori=0to9 

1050h2$(i)=str$(i) 

1060nexti 


1070fori=10to15 

1080h2$(i)=chr$(i+55) 
1090nexti 
1100e1=0 
1110r$(0)="b" 

1120r$(1)="c" 
1130r$(2)="d" 

1140r$(3)="e" 

1150r$(4)="h" 
H60r$(5)="l" 

1170r$(6)="m" 
1l80r$(7)="a" 

1190m$(0)="000" 

1200m$(1)="001" 

1210m$(2)="010" 

1220ra$(3)="011" 

1230m$(4)="100" 

1240m$(5)="101" 

1250m$(6)="110" 

1260m$(7)="111" 

1270b=0 

1280a(C)=0 

1290b1=0 


1300print"options: 

1310inputc$ 

1320ifinstr(c$,"show")<>0then6750 
1330ifinstr(c$,"nollst")=0then1350 
1340o2u1 

1350ifinstr(c$,"nobin")=0then1370 
1360o3=1 

1370ifinstr(c$,"If')=0then1390 
1380o4=1 

1390ifinstr(c$,"symbol")=0then1410 

1400o5=1 

14l0rem 

1420print" " 

1430iflnstr(c$,"hex")=0then1450 
1440o1=1 
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1450ife$="make"then6380 

l^bOrem*** 0 ** 01 ************”*** 11 ***** 

1470rem» CREATE ADDRESSES & SYMBOLS • 

1480rem** M1M# *** MM,l **»*»»***»»» # **** 

1490rem 

1500rem Pass one creates a symbol table, and 
1510rem calculates all addresses for every 
1520rem line of source. 

1530rem 

1540q=1 

1550ifend:1then2290 
1560input:1,c$ 

1570ifinstr(c*,".end')<>0then2290 
1580rem consent line only? 

1590n1=instr(ct,") 

I600ifn1=0thenl690 

I6l0ifn1>3then1690 

1620b=b+1 

I630ifq<2thenl660 

I640a(b)=a(b-1)-K]-1 

I650goto1530 

1660a(b)=a(b-1) 

1670goto1530 
I680rem origin line? 

I690n=instr(c$) 

17001fn=0then1810 
1710c$=mid$(c$,n+1) 

1720b=b+1 

1730k$=c$ 

1740gosub4770 

1750ifk=777then1770 

1760c$=str$(k) 

1770a(b)=val(e$) 

1780a(b)=a(b)-1 
1790goto1530 
1800rem equate line? 

I8l0n=instr(c$,"=") 

I820ifn=0then1920 

I830b1=b1+1 

I840s$(b1)=mid$(c$,1,n-1) 

1850c$:mid$(c$,n+1) 
l860k$=c$ 

I870gosub4770 
I880s1(b1)=k 
l890b=tw-1 
1900a(b)=a(b-1) 

1910goto1530 
1920rem label line? 

1930n2=instr(c|,":") 

1940ifn2=0then2030 

1950b=b+1 

1960a(b)=a(b-1)4q 

1970b1=b1+1 

1980s*(b1)=mid*(c$,1,n2-1) 

1990k=a(b) 

2000gosub5340 

2010s1(b1)=k 

2020goto2060 

2030 rem opcode line? - get the number of bytes 

2040b=tM-1 

2050a(b)=a(b-1)*q 

2060ifn1>n2then2080 

2070n1=80 

2080k$=mid$(c$,n2+1,nl-l) 

20901flnstr(k$,"lxi")=0then2120 

2100q=3 

2110goto1550 

2120rem 

2130ifinstr(mld$(k$,1 t 3),'j")<>0then2100 
2140ifinstr(k$,"pchl")<>0then2100 
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2150ifinstr(k$,"Ida")<>0then2100 

2160ifinstr(k$,"sta" )<>0then2100 

2170ifinstr(k$,"hid")<>0then2100 

2l80ifinstr(k$,"call")<>0then2100 

2190ifinstr(k$,"out")=0then2220 

2200q=2 

2210goto1550 

2220rem 

2230if instr (k$," inx") OOthen 1530 
2240ifinstr(k$,"cpl")<>0then2200 
2250ifInstr(k$," inr ")OOthen1530 
2260ifinstr(k$,"ln")<>0then2200 
22701finstr(k*,"i")<>0then2200 
2280goto1530 
2290rem 

2300rem** ,, ***»»»**»**********»‘*»***‘ 

2310rem» DECODE OPCODES & VARIABLES * 

2320rem»****»****»»*****»*****». 

2330rem 

2340rem Pass two decodes opcodes and their 
2350rem variables. The results are stored 
2360rem in arrays representing the 
2370rem first, second, and third bytes of 
2380rem the source line. The stored values 
2390rem are octal. 

2400ifo5=1then2840 

24l0b=0 

2420printtab(4);"adrs"; 

2430printtab(12);"op"j 
2440printtab(17);"b2"j 
2450print tab(21);"b3" 

2460restore:1 
2470goto2510 
2480ifend:1then2840 

2490rem go print the result for this source line 

25Q0gosub3060 

2510input:1,c$ 

2520e$=c$ 

2530ifc$=".end”then2840 
2540b=b+1 

2550ren let k$= opcode + variables only 
2560ifinstr(c$,)<>0then2480 
2570ifinstr(c$,"=")<>0then2480 
2580nsinstr(c$,"/") 

2590ifns0then2620 

2600ifn<6then2480 

26l0ctrmidt(ct.1.n-1) 

2620nsinstr(c$,":") 

2630ifns0then2650 
2640c$smid$(c$,n+1) 

2650k$sc$ 

2660rem , *»»*»»»»»»»»»»»» 

267Orem* DECODE 'MOV' • 

2680rem*********»»*»»»*» 

2690nsinstr(cj,"mov") 

2700if>i=0then3480 
2710k$smid$(c$,n+4,1) 

2720q=n 

2730gosub4630 

274Oi<V=777then28l0 

27501sk 

2760k$smld$(c$,q+6,1) 

2770gosub4630 
2780ifks777then28l0 
2790k$s" 1 "+strt (1) +str$ (k) 

2800goto2820 

28l0k$="777" 

2820r1(b)sval(k$) 

2830goto2480 
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2840rem end of decode phase 
2850rem print the symbol table 
2860print" " 

2870forq=1tob1 

2880ifo1<>1then2940 

2890k$=str$(s1(q)) 

2900gosub5820 

2910gosub5950 

292Qprlnts$(q);;k$ 

2930goto2950 

2940prints$(qs1(q) 

2950nextq 

2960prlnt" " 

2970ife100then3000 
2980printtab (10); "NO ERRORS” 
2990goto3020 

3000printtab(10);"# ERRORS = »; 

3010printe1 

3020stop 

30jOrem************************ 

3040rem* PRINT THE RESULTS 
3050rem************************ 

3060i=b 

3070k=a(i) 

30801fk>0then3110 

3090a(i)=0 

3100goto3150 

3110gosub53**0 

3120i=b 

3130a(i)=k 

3140ifa(i)=a(i-1)then3330 
3150ifr1(i)>377then3170 
3I60ifr2(i)<400then3200 
3170print"?"; 

3180e1=e1+1 

3190r2(i)=88 

32001fo4<>1then3250 

3210t1=t1+1 

3220ift1<66then3250 

3230t1=0 

3240print" " 

3250gosub6470 
3260ifo2=1then3460 
3270ifo1=1then6100 
3280rem 

3290printtab(4);a(i); 
3300printtab(12);r1(i); 
3310printtab(17);r2(i); 
3320printtab(22);r3(l); 
3330n=instr(e$,"/") 

3340n1=instr(e$,”:") 

3350ifh1=0then3400 

3360k$*mid$(e$,1,n1) 

3370e$=mld$(e$,n1+2) 

3380printtab(30);k$; 

3390goto3420 

3400ifn=0then3420 

3*t 101 fn<3then3450 

3**20prlnttab( 37); e$ 

3430goto3460 
3440printtab(30);e$ 
3450prlnttab(30);e$ 

3460return 

3470reln*** , ** ,, **** ,, ** 

3480rem* DECODE 'MVI' « 

3490rem**»»*»•»»•»•»•»» 

3500n=instr(c$,"mvl") 

3510ifn=0then3620 
3520k$=mid$ (c$ ,n+4,1) 
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3530u=n 
3540gosub4630 
3550r1(b)=15+k 
3560n=u 

3570k$=mid$(c$,n+6) 

3580rem see if k$ is in s.t. 

3590gosub4760 

3600r2(b)=k 

3610goto2480 

3620rem , ***»**»*»»*»» , *»*** 

3630rem* DECODE 2 BYTE OP * 

3640^em*•***** , *•**** # *••*• 

3650restore 

3660data in ,333,out ,323,adi,306,aci,316,sui,326 

3670data sbi,336,ani,346,xri,356,ori,366,c pi,376 

3680data end ,0 

3690readk$,k 

3700ifk$="end"then3810 

371Orem 

3720n=instr(c$,k$J 
3730ifh=0then3690 
3740r1(b)=k 
37501=len(k$) 

3760k$=mid$(c$,n+l) 

3770c$=k* 

3780gosub4760 

3790r2(b)=k 

3800goto2480 

SSlCre!!!***********”****** 

3820rem» DECODE 'LXI' * 

3830rem******************* 

3840data lxi b,1,lxi d,21,lxi h,41,lxi sp,61 
3850read k$,k 
3860ifk$="end"then3980 
3870n=instr(e$,k$) 

3880ifn=0then3850 

3890r1(b)=k 

3900k$=c$ 

3910gosub4760 
3920gosub5110 
3930Koto2480 

3940data jnz,302,jz,312,jnz,322,je,332,jpo,342,jpe,352 
3950data jmp,303,jm,372,jp,362,cnz,304,cne,324,ez,314 
3960data cc,334,cpo,344,cpe,354,cp,364,cm ,374,call,315 
3970data sta,062,Ida,072,shld,042,1hid,052,end,0 

3980rem* ll# * ,,,l,, * , ** ,HI * B ** ,H, * ,t * ,l# 

3990rem* DECODE SINGLE BYTE * 

4000REM«»»«***»*»*»*»**»»****»» 

4010data rnz,300,rz,310,nnc,320,re,330,rpo,340,rpe,350 

4020data rp,360,rm,370,ret,311 ,rlc,7,rrc,17,ral,27,rar,37 

4030data xchg,353,xthl,343,sphl,371,pchl,351,hit,166,nop,0 

4040data di,363,ei,373,daa,47,cma,57,stc,67,cmc,77,end,0 

4050readk$,k 

4060ifkt="end"then4100 

4070ifinstrCc$,k$)=0then4050 

4080r1(b)=k 

4090goto2480 

4100rem see if line is a one byte + register instr 
4110data pop,301,pu3h,305,stax,2,ldax,12 
4120data inx,3,dcx,13,dad,11,end,0 
4130readk$,k 
4l40ifk$="end"then4290 
4150n=instr(c$,k$) 

4l60ifn=0then4130 

4l701=len(k$) 

4l80k$=mid$(c$,n+l+1,1) 

4190n=instr("bdh",k$) 

4200ifn=0then4240 

4210k=k+(n-1)*20 
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4220r1(b)=k 

4230goto2480 

4240ifk$0"s"then4270 

4250k=k+60 

4260goto4220 

4270ifk$="p''then4250 

4280goto4530 

4290rem decode final single byte opcode 
4300data add,20,adc,21,sub,22,sbb,23 
4310data ana,24,xra,25,ora,26,cr!]p,27,erxi,0 
4 320readkt,a 
4330ifk$="end"then4410 
4 340n=instr(c$,k$) 

43501fd=0then4320 

4360k$=mid$(ct,n+4,1) 

4370gosub4630 

4380r1(b)=a*10+k 

4390goto2480 

4400data inr,4,dcr,5,end,0 
44l0readk$,a 
44201fk$="end"then4500 
4430n=instr(c$,k$) 

44401fr>=0then4410 
4450k$=mid»(c$,n+4,1) 

4460gosub4630 
4470ifk=777then4510 
4480r1(b)=k»10+a 
4490goto2480 

4500rera*•*•••**•»»»»»•»*•»» 

4510rem* ERROR * 

4520rem«»»«**»»»*»“»*»*»» 

4530r1(b)=777 

4540goto2480 

4550rem 

4560rem 

4570rem 

4580reoi SUBROUTINES 

4590rem - 

4600rem 

46l0rem 

4620rem 

4630rera*****»*****»****»»**»»«*»» 

4640rem* DECODE A REGISTER • 
4690rem # ** 1, **»»*»»***»*»»*««***«» 

4660rem enter with: k$= register 

4670rem exit with: k= octal of register 

4680rem k= 777 if error 

4690k=777 

4700fori=0to7 

4710ifk$Or$ (i) then4740 

4720k=i 

4730i=7 

4740nexti 

4750return 

4760rem*»»*»»»*»*»»»»»*»»»**»»»* 

4770rem» DECODE #,ASCII,S.T. * 
4780rem*»**»**»»*»«»»*»*»»»»»»* 

4790rem enter with: k$ - string for decoding 
4800rem exit with: k - octal if s.t. entry 

48l0rem k = octal if ascii entry 

4820rera k = octal if nimeric entry 

4830rem k - 777 If none of the above 

4840k=777 
4850a$=k$ 

4860k$=c$ 

4870n=instr(k$,"'") 

4880ifn=0then4900 

4890k$=mid$(k$,n+1) 

4900n=instr(k$,"#") 

4910ifn=0then4980 
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4920rem reach here if a numeral existed 
4930b$=mid$(k$,n+1,1) 

4940k=val(mid$(k$,1,n-1)) 

4950ifb$="o"then5100 

4960gosub5330 

4970goto5100 

4980rem see if k$ is ascii 
4990n=instr(a$,”$") 

5000if n=0then5040 

5010k=instr("abedefghijklnnopqrstuvwxyz" ,mid$(a$,n+1,1)) 

5020gosub5330 

5030goto5100 

5040rem see if a$ is in the symbol table 
5050fori=ltob1 

5060ifinstr(a$,s$(1))<>0then5090 

5070nexti 

5080goto5100 

5090k=s1(i) 

5100return 

51lOrem***************** , ** , ** , 

5120rem* DECODE BYTE #3 * 

5130rem*»**»»»*»*»»*«***»**»*** 

5140rem enter with: k = octal 

5150rem exit with: r2(b) = octal if k<377 

5l60rem : r3(b) = octal if k>377 

5170r2(b)=k 

5l80ifk>377then5200 

5190goto5320 

5200rem convert k to a binary string 
5210k$=str$(k) 

5220gosub5460 
5230h$=mid$(k$,1,8) 

52401$rmid$(k$,9) 

5250rem convert h & 1 to octal 
5260k$=h$ 

5270gosub5640 
5280r3(b)=val(k$) 

5290k$=l$ 

5300gosub5640 

5310r2(b)=val(k$) 

5320return 

5330rem ,l<l * ,,)HI,,M ** ll * ,l,HHt ***»*“ 1 n H n*»”* 

5340rem» CONVERT DECIMAL K TO OCTAL K • 
5350rem*** , *»*******»»****»»»**»»»»»»»* 

5360a1=k 

5370h$="" 

5380fori=4to0by-1 
5390a=int(a1/8»»i) 

5400k1=a1-a*8«»i 

5410a1=k1 

5420h$=h$+str$ (a) 

5430nexti 

5440k=val(h$) 

5450return 

5460rem***********»***»»* , ** , »»***»***»* , »* 

5470rem» CONVERT OCTAL K$ TO BINARY K$ • 

5480rem*************************‘*****»**** 

5490ht="" 

5500fori=1tolen(k$) 

5510k2$=mid$(k$,i,1) 

5520fork=0to7 

5530ifstr$(k)Ok2$then5560 
5540h$=h$-tm$(k) 

5550k=8 

5560nextk 

5570nexti 

5580k$=h$ 

5590rem make k$ 16 characters long 
5600fori=ltol6-len(k$) 
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56l0k$="0"+k$ 

5620nexti 

5630return 

56^0reni*********®************®*****®***** 

5650rem» MAKE BINARY K$ OCTAL K$ * 
5660rem*** , ************ M **************** 

5670rem enter with: k$ = 8-char binary 
5680rem exit with: k$ = octal equivilant 
5690k$="0"+k$ 

5700k3$= ,,n 
5710fori=1to9atep3 
5720k2$=mid$(k$,i,3) 

5730fork=0to7 

57'tOif inatr (k2$ ,m$ (k)) =0then5770 
5750k3$=k3$+str$(k) 

5760k=8 

5770nextk 

5780nexti 

5790k$=k3$ 

5800return 

1 ;810rl'm* , * , * , ******** , * , * , ******•** ,,,, * , * , 

5820rem* CONVERT OCTAL K$ TO DECIMAL K$ * 

5830re<n»*»»*»*«»»»»*»»»»«»»»*«»«»»**»»»*»* 

5840k=0 

58501=len(k$) 

586011=1 

58701=1+1 

5880fori=1tol1 

58901=1-1 

5900k=k+val(mid$(k$,l, 1) )*8«*U-1) 

5910nexti 

5920k$=str$(k) 

5930return 

59*t0re[n****»**»»***»*»»**»»»«*»t»»»»»*f»**» 

5950rem» CONVERT DECIMAL K$ TO HEX K$ * 

5960rem******»»***»*»»»»»*»»»*»»»»»»»»»«*** 

5970a1=val(k$) 

5980h1$= ml 

5990f ori=n7to0step-1 
6000k=int(a1/16**i) 

6010k1=a1-k»l6*»l 
6020ifk<17then6050 
6030h1$="«»” 

6040goto6080 

6050h1$=h1$+h2$(k) 

6060a1=k1 

6070nexti 

6080k$=h1$ 

6090return 

6100rem , **»***»*»*»*»»»»»»««»»» 

61 lOrem* OUTPUT A HEX LINE » 

6120rem #<HH, *** M *»»»»»3*»aaaa»a 

6130k$=str$(a(i)) 

6l40n7=9 

6l50go3ub5820 

6l60gosub5950 

6l70printtab(9);k$; 

6l80k$=str$(r1(b)) 

6l90n7=1 
6200gosub5820 
6210go3ub5950 
6220ifk$<>"00"then6240 
6230k$=" " 

6240prlnttab(12);k$; 

6250k$=strt(r2(b)) 

6260gosub5820 
6270gosub5950 
6280ifk$0”00"then6300 
6290k$=" » 
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6300printtab(17);k$; 
6310k$=str$(r3(b)) 
6320gosub5820 
6330gosub5950 
6340ifk$<>"00"then6360 
6350k$=" " 
6360printtab(21);k$; 
6370goto3330 


6380rem******************************** 

6390rem» MAKE COMMAND * 


6400reni******************************** 

6410inputc$ 

6420ifc$<>".end"then6450 
6430prlnt:1,c$ 

6440atop 
6450print:1,c$ 

6460goto6410 

6470r^m******»»**»»*******»»***»***»**»»»« 

6480rem* CREATE OCTAL OUTPUT FILE • 

6490rem*********************************** 

6500k$=str$(a(i)) 

6510gosub6640 

6520k1$=k$ 

6530k$=str$(r1(i)) 

6540go3ub6640 

6550k1$=k1$4k$ 

6560k$=str$(r2(i)) 

6570gosub6640 
6580k1$=k1$+k$ 

6590k$=str$(r3(i)) 

6600gosub6640 

66lOk1$=k1$+k$ 

6620print:2,k1$ 

6630return 

6640rem*************************** 

6650rem* MAKE K$ = 3 CHARACTERS • 
6660REM**«***«»***»»»**»******»**» 

6670n=len(k$) 

6680ifn=3then6730 

6690ifn=2then6720 

6700k$="00"+k$ 

6710goto6730 

6720k$="0"+k$ 

6730return 
6740rem ******* 

6750rem ‘SHOW * 

6760rem ******* 

6770ifend:1then68l0 
6780input:1,o$ 

6790printc$ 

6800goto6770 

68lOrestore:1 

6820goto1300 

6830end 


READY 











Chapter 3 


TLABEL: An 8080 
Program to Punch 
Human-Readable Labels 
on Paper Tape 

By Alan R. Miller, 
Contributing Editor 


Have you ever discovered unlabeled tapes lying about and won¬ 
dered what they were? Did you attempt to print them, only to find that 
they were punched in a binary or hexadecimal format? Would you like 
to have the file name and address in a form that you can read at the 
beginning of each tape? TLABEL can do that. TLABEL is an 8080 
assembly-language program that can be used to punch human- 
readable messages on paper tape. It uses the set of 63 ASCII 
characters: 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

0123456789 

!“#$%&’0* + = >?@[\]A. 

and a blank. These represent the ASCII values 20 to 5E HEX (040 to 135 
octal). 

TLABEL can be used two ways: either by itself or as a subroutine 
that can be called by a monitor, or by BASIC. To use TLABEL in the 
stand-alone mode, jump to the first instruction “START” at address 
5E00 HEX. To use it as a subroutine, call ‘SUBR” at address 5E09 
HEX. In the latter case, your calling program must provide four levels 
(8 bytes) of stack. In either case, a 5-inch leader is punched out when 
TLABEL is started. 

Type the desired message, including any necessary blanks, then 
signal the end of the message by typing a Control-Z (all other control 
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characters are ignored). Another five inches of blank tape will now ap¬ 
pear and the program counter will jump to the address defined 
“MONIT” in the source program (zero in this case) if TLABEL is being 
used in the stand-alone version. Alternately, control will return to your 
calling program if TLABEL was called as a subroutine. 

TLABEL can also be used to punch labels on BASIC source tapes. 
For use with MITS BASIC, answer the question “MEMORY SIZE?” dur¬ 
ing initialization with a value that will keep BASIC from plowing 
through TLABEL (24063 for TLABEL at 5E00 HEX). For MITS extended 
BASIC versions 4.0 and 4.1, put the following two lines at the end of 
your regular source program: 

5000 DEFUSR = ?H 5E09: REM POINT USR TO TLABEL 

5010 X = USR(9): LIST 

Be sure that the statement prior to 5000 is an unconditional branch, 
such as a RETURN or GOTO, or is a STOP or END. Then give the direct 
command: 

RUN 5000 

The USR function will call TLABEL, allowing you to punch out the 
message on the tape leader. Type a Control-Z when finished and con¬ 
trol will return to BASIC at the next expression after the USR com¬ 
mand. Since this is LIST, the source program will then automatically 
be punched out. 

Other versions of MITS BASIC should be changed to: 

5000 US = 73: POKE US, 9: POKE US +1,94 

This command will patch USRLOC with the address of TLABEL’s 
subroutine entry for MITS 8K, versions 3.2 and higher. For extended 
BASIC version 3.2, USRLOC is at 65 decimal. Therefore, the above 
statement should read US = 65. 

In the 4K versions USRLOC is at 111 octal (49 HEX). However, a 
manual patch must be made since the POKE function is not available. 
Now only one line is needed: 

5000 X = USR(9): LIST 
The direct command is still: 

RUN 5000 

TLABEL requires 421 bytes including 8 bytes of stack. The HEX 
checksummed listing is assembled for the address range 5E00 to 
5FA5. Keyboard input is at address 10/11 HEX (20/21 octal); in stand¬ 
alone mode, the separate punch is addressed to 12/13 HEX (22/23 oc¬ 
tal). The keyboard-input address and the punch address can be the 
same (e.g. if a teletypewriter is used as the only peripheral) since the 
keyboard input is not echoed. The locations in Figure 1 may need to 
be changed for your system. 
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Source 

Program 

Variable 

Address 

(HEX) 

Data 

(HEX) 

Your monitor 

MONIT 

5E07.8 

0000 

Keyboard status addr 

TYSTAT 

5E0D 

10 

Keyboard data addr 

TYDATA 

5E14 

11 

Input-ready mask 

INMSK 

5E0F 

01 

Jump zero 


5E10 

CA 

Punch status addr 

PSTAT 

5E57 

12 

Punch data addr 

PDATA 

5E5F 

13 

Output-ready mask 

PMASK 

5E59 

02 

Jump zero 


5E5A 

CA 


Figure 1 

PROGRAM LISTING 


J TLABEL i PP8GPAM T0 MAKE H UM AN - P EA DABL E 
1 LABELS BN 0N PAPER TAPE 


l PR0GRAMMED F0P AN 8080 MI CRJPR3CESS8R 
I BY ALAN R. MILLER 

I NEW MEXIC0 TECH. SSClSRRJ. NM 87801 
I 505-835-5619 

; INTERFACE AGE. JANUARY 19 79. PAGE 134 





TITLE 

•TAPE LABEL' 

5E00 


0RG 

5E00H 



F800 


M0NIT 

EQU 

0F800H 

JJMP Ti3 M0NIT3R 0N 

0010 


TYSTAT 

ECU 

10H 

i C3NS0LE STATUS 

0011 


TYDATA 

EQU 

TYSTAT*1 

JC0NS0LE DATA 

0001 


I Nil SK 

ECU 

1 

% INPUT MASK 

0012 


PSTAT 

EQU 

12H 

;PUNCH STATUS 

0013 


PDATA 

EQU 

PSTAT*1 

JPUNCH DATA 

0002 


PMASK 

EQU 

2 

; PINCH-READY MASK 


5EOO 3IA2SF 
5E03 C009SE 
5E06 C300E8 


5E09 C048 5E 


1 ENTER AT THIS PDINT WHEN USED AS MAIN PROGRAM 

STARTI LX1 SP. STACK I STACK AT END 

CALL SUBR 

JMP M8NIT I WHEN DONE 

IJ J JI)J;J J >;;;J J;j;;;j j;;;;;;j;;;j j, 

> CALL AT THIS POINT FOR USE AS A SUBROUTINE 

SUBRs CALL LEADR J PUNCH A LEADER 


I INPUT A CHARACTEP. FROM THE KEYBOARD 


5E0C 

DB10 

READi 

IN 

TYSTAT 

t GET STATUS 

5E0E 

E601 


AN 1 

INMSK 

;MASK UNWANTED BITS 

5E10 

CA0C5E 


JZ 

READ 

;L00P UNTIL READY 

5E13 

DB1 1 


IN 

TYDATA 

; GET DATA 

5EI 5 

E67F 


AN 1 

7FH 

;STRIP PARITY 

5E17 

F El A 


CPI 

1 AH 

JQUIT 0N C0NTR0L-Z 

5E19 

CA485E 


JZ 

D0NE 


5E1C 

DE20 


SBI 

20H 

1REM0VE ASCII BIAS 
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5E1L 

DA0C5E 



JC 

READ 

;SKIP C0NTR0L CHARACTER 

5L21 

FE4Q 



CPI 

40H 


5L23 

DA28 5E 



JC 

RD2 

;UPPER CASE 

5E2 6 

DE20 



SBI 

2 OH 

J MAKE UPPER CASE 

5E28 

6F 

RD2* 

M0 V 

L« A 

j SAVE CHARACTER IN L 

5E29 

5 F 



M0 V 

L» A 

i AND E 

5E2A 

2 600 



MVI 

H, 0 

>ZER0 H 

5E2C 

1 600 



M VI 

D# 0 

; AND D 



; 

FIND 

THE TABLE 0FFSET 

BY MULTIPLYING THE 



; 

CHARACTER 

VALUE BY FIVE <5 PUNCHES PER 



; 

CHARACTER) 

AND ADDING 

IT T0 THE TABLE ADDRESS 

5E2E 

29 



DAD 

H 

;D0UBLE THE CHAR. VALUE 

5E2F 

29 



DAD 

H 

;THEN QUADRUPLE IT 

5E30 

19 



DAD 

D 

;N0V TIMES FIVE 

5E31 

LB 



XCKG 


; SAVE IT IN D/E 

5E32 

215F5E 



LXI 

H* TABL E 

;P0INT T0 TABLE 

5E3 5 

19 



DAD 

D 

1ADD 0FFSET 

5E36 

1E05 



MVI 

E, 5 

; 5 PUNCHES PER CHAR. 

SE36 

7E 

NEXTCs 

M0 V 

A*M 

; FETCH PUNCH C0DE 

5E39 

CD535E 



CALL 

P0 UT 

;PUNCH IT 

5E3C 

23 



I NX 

H 

1 INCREMENT P0INTER T0 NEXT 

5E3D 

ID 



DCR 

E 

; DECREMENT C0 tfsIT 

5E3E 

C2385E 



JNZ 

NEXTC 


5E41 

A* 



XRA 

A 

1 PUNCH A BLANK 

5E42 

CD535E 



CALL 

P0 UT 

; BETWEEN EACH CHARACTER 

5E45 

C30C5E 



JMP 

READ 

S N EXT CHARACTER 


J FINISHED. PUNCH TRAILER 
J AND RETURN T0 CALLING PROGRAM 


DON El 


i SUBR0UTINE T0 PUNCH A LEADER 0N TAPE 


5E48 

AF 

LEADRs 

XRA 

A 

I SET F0R NULL 

5t49 

l 632 


MVI 

D# 50 

; number 0f nulls 

5E4B 

CD535E 

NLDR* 

CALL 

P0 UT 

;PUNCH 

A BLANK 

5E4E 

l 5 


DCR 

D 



5E4F 

C24B5E 


JNZ 

NLDR 



5E52 

C9 


RET 






; SUBR0UTINE T0 

0UTPUT 

DATA T0 

PUNCH 

5E53 

F 5 

P0UT* 

PUSH 

PSW 



5E54 

DB 1 2 

P0UTV* 

IN 

PSTAT 



5E56 

E602 


AN I 

PM ASK 

J MASK 

UNWANTED BITS 

5E58 

CA545E 


JZ 

P0 UTW 

;L00P 

UNTIL READY 

5E5B 

FI 


P0P 

PSW 



5EEC 

D313 


0 UT 

PDATA 

; PUNCH 

BYTE 

5E5E 

C9 


RET 





> TABLE 0F PUNCH SYMBOLS F0R THE CHARACTER SET 

5E5F OOOOOOOOOOTABL El OB 0. 0. 0. 0. 0 J BLANK 

5E64 OOOOCFCFOO DB 0.0. 20 7.20 7.0 1 EXCLAIM 

5E 69 0 0 0 7 0 0 0 7 0 0 DB 0. 7. 0. 7. 0. AO. 254. AO. 254. AO l # 

SE73 A689 F F89 72 DB 70. I 37. 2 55* 1 3 7. I 1 4 J i 

SE78 462elOL»CA DE 70. 38. 16. 200. 19 6 1 X 

5E7D 6C92ACA0A0 DB 108. 14 6. 172. 64. 160. 0. 4. 3. 3. 0 J i ' 

5E87 003C428100 DB 0. 60. 66.129.0. 0. 129. 66. 60. 0 S ( ) 

5E91 8850F8S088 DB 13 6.80.248.80. 136. 8.8. 126.8.8 J *.+ 

5E9B 0080703000 DB 0.128. 1 12. 48.0. 8.8.8.8.8 I . - 

SEA5 OOCOCOOOOO DB 0.192.192.0.0. 64. 32.16.8.4 > . / 

5EAF 7EA1898 57E DB 12 6. I 61. 1 37. 1 33. 1 26 J 0 

5EB4 8482FF8080 DB 132. 130. 2 65. 128. 128 i 1 

SEB9 C2A19 1898 6 DE 19 4. 1 61. 146. 137. 134 J 2 

5E8E 4289898976 DB 66. 137. 137. 137. 1 18 J 3 
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5EC3 0C0A89FF88 DB 1 2< 10< 1 3?< 255< 1 36 J 4 

5EC8 6789898971 DB 103> I 37< 1 37. 1 37< 1 1 3 J 5 

5ECD 7 £898989 72 DB 1 £ 6< 1 37< 1 37* 1 37# II4 1 6 

SED2 0 10 1 £90503 DB 1<1<249<5<3 1 7 

SED7 7 68989 8 9 7 6 DB 118<137<I37<137<118 J 8 

5EDO 46898989 7E DB 70<137<137<137<126J 9 

SEE1 OOD 8 D 8 OOOO DB 0<216<2I6<0<0< 0. 128< 118< S4< 0 J I < 

5EEB 1028448200 DB 16<40<68<130<0< 40<40<40<40<40 J < • 

SEF5 8244281000 DB 130<68<40<16<0< 6<1<18 5<9<6J > 7 

5EFF 7E819D910E DB I26<129<157<145<14J • 

5F04 F E090909 FE DB 2 54<9<9<9<2 54 J A 

5F09 8 1 FF898976 DB I29<2 55<137<137<118 J B 

5F0E 7E81818142 DB 12 6<129<129<129<66J C 

5F13 81FF81817E DB I29<255<129<129<126J D 

5F18 FF89898989 DB 2 55<137<137<137<137JE 

5F1D FF09090901 DB 255<9<9<9<1 JF 

5F22 7E8 19 19 1 72 DB 12 6<129<14E<145<114J t 

5F27 FF080808FF DB 255<8<8<8<255 JH 

SF2C 008 1 FF6 100 DB 0<I29< 255<129<0 JI 

5F3 1 608 08 1 7101 DB 9 6<128<129<127<1 Jvl 

5F36 FF08 1422C1 DB 2 55<S<20<34<193 J K 

5F3B FF80808080 DB 2 55<I28<128<128<128 J L 

SF40 FF020C02FF DB 255<2<12<2<255< 2 55<2<60<64<2S5J M< N 

5F4A FF818181FF DB 2 55<129<129<129<25S< 255<9<9<9<6J 3< P 

5F 54 7E8 1A141BE DB 12 6<129<161<65<190 J P< 0 

5F59 FF1929498 6 DB 2 55<2 5<4I<73<I34J R 

5F5E 4689 8 989 72 DB 70<137<137<137<114J S 

5F63 0101 FF0101 DB 1<1<255<1<1< 127<128<I28<128<127J T< V 

5F6D 0 F30C0300F DB I5<48<I92<48<15 J V 

5F72 7F8070807F DB I27<I28<112<128<127J W 

SF77 C3241824C3 DB 19 5<36<24<36<195< 3<4<248<4<3 J X<Y 

SF81 C1A1918987 DB 193<161<145<137<13SJ Z 

SF86 00FF818181 DB 0<2 55<129<129<I29< 4<8<I6<32<64JC \ 

5F90 818181FFOO DB 129<129<129<255<0< 12<2<1<2<12 J) » 

5F9A DS 8 J STACK SPACE 

5FA2 - STACK EOU i 

5FA2 END 



Chapter 4 


TAPEMON: An 8080 
Binary Tape Monitor 

By Alan R. Miller 


TAPEMON Is an 8080 Assembly Language program that can be 
used to dump, load, and verify checksummed tapes. The Intel HEX 
checksum format is commonly used to save relatively short programs 
on paper tape because the resulting tapes can be read directly when 
fed into a teletype. For longer programs, especially those saved on 
magnetic tape or disc, a binary format is more suitable. While the HEX 
format requires two types on tape to represent each byte of memory 
(only the characters 0-9 and A-F are used), the binary format needs 
only one byte on tape for each memory byte. As a consequence binary 
tapes load in half the time required for HEX format tape. For example, 
a 12K BASIC interpreter on paper tape can be loaded with a teletype in 
20 minutes if the object tape is in a binary format. The same program 
would require 40 minutes to load if punched in the HEX format. 

There appears to be no standard binary format currently in use. 
Some methods use a separate checksum for the record address and 
another for the data. Others, such as the program presented here, use 
only one checksum for each record. Files produced with TAPEMON 
consist of a leader, a file header record, one or more data records, an 
end-of-file record, and a trailer. The format is: 


FILEHEADER 
SHORT RECORD 
LONG RECORD 
END-OF-FILE 


|55H 1 filename , comment CR 


I 3CH 

rec len addr’L,H | data|checksum! 


\m 

rec len L,H| addr'L,H| data] checksum! 


\™. 

autostart addr L,H | checksum 


The 55 HEX (125 OCTAL) byte at the beginning of the file header 
signals the beginning of the file. An optional file name of up to eight 
characters may follow. This file name may contain any ASCII print- 
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able character except a comma. The file name can be optionally 
followed by a comma and a comment of up to eight ASCII Printable 
characters. A carriage return terminates the header record. 

Data records consist of a record header byte, a 1- or 2-byte record 
length, a 2-byte record address, the data byte and the checksum byte. 
There are two types of data records: short and long. Short records 
contain less than 256 data bytes; long records contain 256 or more 
data bytes. Data records start either with a 3C HEX (74 OCTAL) byte 
for short records, or with a 77 HEX (167 OCTAL) byte for the long 
records. The recorder-header byte is followed by a 1- or 2-byte record 
length, which gives the number of data bytes in the record. A single 
byte is used for short records and two bytes (least significant byte 
first) are used for long records. 

The record address follows the record length. It consists of two 
bytes (least significant byte first) and gives the location where the 
first data byte of the record is to be stored. The data bytes appear next 
in binary form, one byte of record for each data byte. A checksum 
byte, obtained by adding without carry the record addresses (two 
bytes) and the data bytes, terminates the record. The record length is 
not included in the checksum. This is not necessary since if the 
record-length byte is incorrectly read, the byte which is incorrectly 
calculated to be the checksum byte will be the wrong one. 

A 4-byte end-of-file record appears after the last data record. The 
first byte of this record is a 74 HEX (164 OCTAL), the next two bytes 
are the autostart address (least significant byte first), the address 
where the program is to begin. The fourth byte is a checksum for the 
two-byte autostart address. 

The user initializes the HEXMON by starting at the beginning of the 
program (the label START). This produces the statement: 

HEX OR OCTAL INPUT? 

Type an “O” and a carriage return if you want to enter addresses and 
data in octal format. HEX-input mode is selected by typing an “H” and 
a carriage return. HEX-input mode will also be selected by default if 
just a carriage return is typed. The program then prints accordingly 
OCTAL INPUT or HEX INPUT and then asks: 

RECORD LENGTH? 

Enter a 2-byte record length in the previously selected HEX or OCTAL 
mode (6 OCTAL digits or 4 HEX digits) and a carriage return. Typing 
just a carriage return will select the default record length of 255 bytes 
(377 OCTAL, FF HEX). In this latter case, the computer responds with 
the statement RECORD LENGTH 255. 

The printing of the prompt “>:” indicates that the main portion of 
the program starting at the label RESTRT has been reached. The valid 
commands are “M”, “R”, “N”, “G”, “D”, “L", “E”, “V”, “O”, and “C”. If 
an error is made while entering the task or the addresses that follow, 
type a Control-X and this portion of the program will be restarted. At 
the completion of any of these tasks, control will return to this point 
with a reprinting of the prompt">:”. The current mode (OCTAL or HEX 
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input) and the record length can be determined by typing an “M" 
(MODE). The input mode and record length can be reset by typing an 
“R” (RESET). 

Typing an “N” and one HEX or OCTAL byte will reset the number of 
NULLS that precede and follow a dump. The default value is one 
which is satisfactory for magnetic tape. The value should, however, be 
reset to 48 HEX (110 OCTAL) for paper tape. This will produce a blank 
6-inch leader and trailer. 

Enter a “G”, a 2-byte address, and a carriage return to go 
somewhere else, for example to your regular monitor. Typing a 
Control-X during input will cancel the line and restart this program. A 
“WHAT?” will be printed for improper input (e.g., HEX characters 
when in OCTAL Mode). 

A portion of memory can be dumped to tape by typing a “D” (for 
DUMP), the start address, the stop address, and autostart address 
(two bytes for each address), and a carriage return. An optional file 
name of up to eight characters can be typed after the autostart ad¬ 
dress and before the carriage return. Any printable ASCII character ex¬ 
cept a comma can be used. If a file name is entered, then an optional 
comment of up to eight characters can also be used. The comment 
can contain any printable ASCII character, and is separated from the 
file name by a comma. For example: 

>:f800:F91 F:F803:PROM4,VER 4.1<CR> 
will dump from F800 to F91F with an autostart address of F803. The 
header will carry the file name/comment PROM.VER4.1. (The colons 
and > symbol are printed by the program). 

If an error is made during entry of the file name or comment, type a 
DEL (RUB OUT) and then the correct character. A back arrow is 
echoed when the DEL key is pressed. 

A tape can be loaded by typing an “L” and a carriage return. The 
keyboard bell will ring and the front panel lights (if you have them) will 
change when the file header (55 HEX) is found. This feature requires 
six additional bytes and an additional tape-input routine, one is used 
to look for the file header and the other is used for everything else. I 
feel that the additional complexity is worth it since I don’t have to wait 
until a tape has been played through to find out that I have the left 
channel plugged into the computer, but the program I want is on the 
right channel. 

When the tape has successfully loaded, the autostart address will 
be printed in both HEX and OCTAL. The prompt will be printed in¬ 
dicating that the program is ready for the next task. Another way to 
load a tape is to type the file name after the “L” command, e.g. 

>:LPROM4<CR> 

can be used to load the tape made in the above example. The DEL key 
can be used to correct errors made while entering the file name. If the 
file name in the command line does not match the file name on the 
tape, the task is terminated. The program prints an error statement 
followed by the actual file name and comment, e.g. 
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WRONG FILE NAME, TRY: PROM4.VER 4.1 
would be printed if the incorrect file name LPROM3 were given. If the 
program loads correctly, the file name, comments and an autostart 
address are printed. For example: 

PROM4.VER 4.1 STARTS AT F803:370003 
would appear in this sample. 

A program can be loaded and executed by typing an “E”, optionally 
a file name and a carriage return. When the program has been loaded, 
the program counter will jump to the autostart address. 

A tape can be loaded at other than its normal address by typing an 
“O” (for offset), a 2-byte offset address (in the current OCTAL or HEX 
mode), optionally the file name and a carriage return. An offset of 0400 
HEX (004000 OCTAL) will load the program IK bytes (1024 bytes) 
higher than the normal address. The program can be loaded 4K bytes 
lower than the normal address with an offset of either F000 HEX 
(360000 OCTAL) or - 1000 HEX (- 020000 OCTAL). If for example an 
offset of F000 is added to the program address of 3000, the double 
register add gives an address of 2000. A negative offset value is first 
subtracted from zero and then added to the program address. During 
the offset load, the original address is added to the checksum so that 
it is properly calculated. Of course the jumps and calls are not altered, 
so that the program will not run at the new location if there are jumps 
and calls addressed for original location. 

MITS software such as BASIC and the Software Package II 
assembler is provided on paper or magnetic tape in a binary format 
that is compatible with TAPEMON. This software, however, also con¬ 
tains a reverse-loaded checksum loader ahead of the main program. 
All MITS programs can be loaded with the command “C” (for 
checksum) and a carriage return. The checksum loader at the begin¬ 
ning of the tape is scanned for the disable interrupt command (Dl). 
This Dl command is the last byte of the checksum loader and now 
represents the file header. The record header byte of 3C HEX follow¬ 
ing the checksum loader is then searched for. On the other hand, ab¬ 
solute tapes made with the MITS Software Package II monitor itself 
are fully compatible with TAPEMON and can be loaded with the “L”, 
“E”, or “O” commands. MITS does not use a checksum on the end-of- 
file record, but since the record header is a 78 HEX (170 OCTAL) rather 
than a 74 HEX, TAPEMON can distinguish between the two types of 
EOF records. 

Tapes loaded with TAPEMON do not have to be verified since they 
are checksummed. If the load operation was completed, the tape was 
loaded correctly. Tapes dumped with TAPEMON of course should be 
verified to be certain that they were properly recorded. A defective 
spot on the tape for example may give an error. Tapes can be verified 
by playing back the tape, typing “V”, optionally the file name, and a 
carriage return. 

For all of the above load and verify operations, the two record- 
address bytes and the data bytes are summed and compared to the 
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checksum value at the end of each record. If the two do not match, the 
operation is terminated, and the message: 

CHECKSUM ERROR AT F801:370008 

is printed giving the value of the H,L register pair at the checksum. 
This will not usually be the location of the error, but can be useful in 
deciding whether the error is in the tape or in the interface circuitry. If 
a second load or verify gives the same address, it is likely that the 
tape is the problem, whereas if the address is different the next time, 
the fault may lie with the hardware. During the load operations, each 
memory location is immediately read back after a deposit to be cer¬ 
tain that the value in memory is correct. Attempting to load into non¬ 
existent, protected, or defective memory will terminate the load and 
error message: 

MEMORY ERROR AT F820:370040 

will be printed. 

TAPEMON can be used to punch binary paper tapes. The resulting 
garbage on the printer during the dump will of course be meaningless 
and the printer will make funny noises. When the tape is read back, 
however, all is quiet, since the input is not echoed. The NULL com¬ 
mand should be used to set 48 HEX (110 OCTAL) nulls to provide a 
leader and trailer of six inches. If paper tape is the usual medium, 
change the default option to provide 64 nulls during initialization. 

TAPEMON requires 1523 bytes of memory, including twelve levels 
(24 bytes) of stack. The program is written for the standard MITS con¬ 
figuration of a 2SIO serial port addressed to 10/11 HEX (20/21 OCTAL) 
and a tape recorder interface addressed to 6/7. The following table 
gives the locations and parameters that may need to be changed for 
your system. 



SOURCE 

PROGRAM 

VARIABLE 

ADDRESS 

(HEX) 

DATA 

(HEX) 

Define stack 

STACK 

580D.5894 

5DEA 

Keyboard status 

TYSTAT 

592D.595D 

10 

Keyboard data 

TYDATA 

5934,5965 

11 

Mask for data avail. 

IMMASK 

592F 

01 

Mask for output 

OUTMSK 

595F 

02 

Jump zero 


5930,5960 

CA 

Tape status 

TAPES 

5B1F,5C44,5C55 

06 

Tape data 

TAPED 

5B26,5C4B,5C5D 

07 

Mask for data avail. 

ACINM 

5B21.5C46 

01 

Mask for tape output 

ACOM 

5C57 

80 

Jump not zero 


5B22,5C47,5C58 

C2 

Default record len 

RLEN 

587A 

OOFF 

Default leader nulls 

SNUL 

5808 

01 
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FLOWCHARTS 




) 




/ INPUT NUMBER 
OF LEADER NULLS 




SENDM 


) 
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/ OUTPUT LEADER. 

/ FILE HEADER. / 
/OPTIONAL FILE NAME/ 
I & COMMENTS / 


LOOK FOR A 
CARRIAGE RET 
AT END OF 
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RING BELL 
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YES 
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OUTPUT DATA 
TO TAPE 


YES 
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PROGRAM LISTING 


; TAPEM3N* PPOGRAi TO LOAD* DUMP AND VERIFY BINAPY 
; CHECK SUMMED TAPES WITH AUTOSTART AND 

S VITH A CHOICE OF HEX OP OCTAL INPUT 

; PROGRAMMED FOR AM 8080 MICROPROCESSOR 
; BY ALAN R. MILLER 

; NEW MEXICO TECH* SOCORRO* MM 8 7801 
; 505-835-5619 

; INTERFACE *Gt» FEBRUARY 19 78* PAGE 144 
t 

TITLE ‘BINARY TAPE MONITOR* 
t 

i KEYBOARD ADDRESS IS 10/ 1 III EX <20/21 OCTAL) 

} TAPE ADDRESS IS 6/7- TAPE AMD KEYBOARD CAN HAVE 
J THE SAME ADDRESS SO THAT A TELETYPE TAPE CAN BE 
; PUNCHED. 

; 

; WHEN STARTED AT ‘START’* PROGRAM PRINTS* 

; ‘HEX OR OCTAL INPUT? * 

; 

; TYPE AN 'H ' FOR HEX MODE OP AN ‘O’ FOR OCTAL MODE 
5 AND A CARRIAGE RETURN. (A CARRIAGE RETURN WITHOUT 
; AN *H‘ OR ‘O’ DEFAULTS TO HEX MODE.) THE PROGRAM 
J THEN PRINTS* 

; 

J ‘RECORD LENGTH? ' 

; TYPE A TWO-BYTE HEX OR OCTAL RECORD LENGTH AND A 
; CARRIAGE RETURN. (A CARRIAGE RETURN WITH NO OTHER 
i INPUT DEFAULTS TO A RECORD LENGTH OF 255-) A PROMPT 
; OF *>» * IS THEN PRINTED. THE VALID COMMANDS ARE* 

; *M‘* *R‘* *G‘* ‘0‘* *L'* ‘E‘* * V'* 'O'* 'N'* AND *C*. 

; 

; TYPE AN ‘M* TO DETERMINE THE RECORD LENGTH AND 
l WHETHER THE INPUT MODE IS OCTAL OR HEX. 

; 

t TYPE AN ' P. ’ TO REINITIALIZE THE SYSTEM SO THAT THE 
; INPUT MODE AMD RECORD LENGTH CAN BE CHANGED. 

) TO DUMP A PORTION 0 T MEMORY TO TAPE TYPE ‘D‘* THE 
t START ADDRESS (MOST SIGNIFICANT BYTE FIRST)* THE 
; STOP ADDRESS* THE EXECUTION (AUTOSTART) ADDPESS AND 
; OPTIONALLY A FILL NAME AND COMMENTS* THEN A CARRIAGE 
; RETURN. THE FILE NAME MAY HAVE I TO 8 CHARACTERS* 

; FOLLOWED OPTIONALLY EY A COMMA AND A COMMENT ( E. G. * 

) VERSION) CONTAINING UP TO 8 CHAPACTEPS. ERRORS 
; MADE DURING ENTRY OF FILE NAME OP COMMENT CAN BE 
; CORRECTED BY PRESSING THE DEL (RUB OUT) KEY- 
; THE TAPE FORMAT IS* 
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J SY.'JC BYTE CULL HEADER) IDE HEX. 125 JCTAL) 

; 

i REC3RD-H LADLP BYTE 

; <3C HEX- 74 3CTAL MR PEC0RDS < 256 BYTES) 

S (77 HEX- 167 0CTAi- MR RECORDS >255 BYTES) 

; REC0RD-LENGTH (DUMBER 0F DATA BYTES) 

i 0NL BYTE F0 R REC0RLS < 2 EC L0M L 

J TV0 BYTES F3P. RECORDS > 255 L0NG 

J (LEAST-SIGN1FI CANT BYTE FIRST) 

; 2-BYTE PEC0RD ADDRESS (L0V/HIGH) 

; DATA BYTES 

I CHECK SIM BYTE (SUM AY RLC0PD ADDRESS AMD DATA) 

; END-0 F- FILE BYTE (74 HEX/ 164 0CTAL) 

; 2-BYTE AUT0START ADDRESS (L0V/HIGH) 

5 CHECKSUM BYTE 0M THE AUT0START ADDRESS 

; 

J T0 L0AD A TAPE- TYPE V- 0PTI0NALLY THE FILE NAME- 
; AND A CARRIAGE RETURN. IF A FILE NAME IS ENTERED 
; THAT D0ES N0T MATCH THE 0ME 0N THE TAPE. AN EPR0R 
; MESSAGE IS PRINTED AL0NG WITH THE C0RRECT FILE NAME 
; 0N THE TAPE. 


; T0 L0AD A TAPE AT 0THLP THAN ITS N0RMAL ADDRESS- TYPE 
i *3 *# A TV0-BYTE 0FFSET ADDRESS T0 BE ADDED T0 H-L- 
; 0PTI0NALLY THE FILE NAME* AND A CARRIAGE RETURN. 

-* AS THE TAPE L0ADS AT THE NEW ADDRESS- THE CHECKSUM 
; WILL EE PRdPERLY CALCULATED. AN 0FFSET 0F 0400 (HEX) 

; WILL L0AD THE PROGRAM IK HIGHER- AN 0FFSET AY F000 
I 0R -1000 WILL L0AD THE PROGRAM 4K L0WER. 

; T0 L0AD ANY MITS CHECK SIMM ED TAPE (WHICH HAS A 
i CHECKSUM L0ADEP AT THE BEGINNING)- TYPE A ’C * ( F0R 
; CHECKSUM) AND CR. THE PROGRAM SEARCHES F0R THE 
I DISABLE-INTERRUPT (DI) IN STRUCTI0N AT THE END 0F THE 
5 CHECKSUM L0ADER- THEREBY SKIPPING 0 VER IT. 

J 

; T0 VERIFY A TAPE AGAINST MEM0RY- TYPE ’V’- AN 
; 0PTI0NAL FILE NAME AND A CARRIAGE RETURN. 

t F0R THE AE0VE THREE CASES- THE AUT0 START ADDRESS IS 
I PRINTED AND THIS PROGRAM IS RESTARTED. IF A FILE NAME 
; IS ENTERED THE FILE NAME AND ANY C0MMENTS ARE PRINTED. 

i T0 L0AD AND EXECUTE A TAPE- TYPE E- 0PTI0NALLY A 
; FILE NAME- AND A CARRIAGE RETURN. THE PP0 GRAM 
i C0UNTER WILL JUMP T0 THE EXECUTE ADDRESS AFTER 
I THE TAPE HAS BEEN L0ADED. 
t 

i TYPE A *N’ T0 CHANGE THE LEADER AND TRAILER LENGTH. 

; ANSWER THE QUESTION ‘LEADER LENGTH’ WITH THE NIMBER 
-* 0 F DESIRED NULLS (IN HEX 0R 0CTAL DEPENDING 0N THE 
; M0DE) • 0N E IS G00D F0R MAGNETIC TAPE. 48H WILL 
; GIVE A 6-IN LEADER 0N PAPER TAPE. THE DEFAULT IS 1. 

- 

; ENTER A * GAN ADDRESS- AND A CARRIAGE RETURN 
; T0 G0 S0MEWHERE ELSE- E. 6. T0 RETURN T0 Y0UR 
; REGULAR M0NIT0R. 

; 

-• A C0NTR0L-X 0N INPUT WILL RESTART THIS PR0 GRAM • 
i IF A CHECKSUM ERR0R 0CCUPS DURING L0AD 0P. VERIFY- 
J AN LRR0P. MESSAGE AND THE ADDRESS WILL BE PRINTED. 

J A MEM0P.Y ERR0R (L0ADING INT0 PR0TECTED- DEFECTIVE- 
J 0R N0N-EXISTENT MEM0RY) WILL PRINT AN ERR0R MESSAGE 
-* AND THE ADDRESS. A ’WHAT? ' WILL THEN BE PRINTED AND 
/ THIS PR0 GRAM WILL BE RESTARTED 3N IMPR0PER INPUT. 
;;;;;;;;;;;;;;;;;;;j;;;;;;;;;;;;;;;;;;;;; n 9 mtsnnn 


5800 

3RG 

5800H 



0000 - 

FALSE 

ECU 

0 


FFFF - 

TRUE 

LOU 

- 1 


FFFF * 

JMPZ 

EQU 

TRUE 

IJUMP 0N Z ER0 


; 


l EQUATES 






TAPEMON 


87 


OOFF 


RLEN 

EOU 

255 

; DEFAULT RECO RD LENGTH 

003C 


SNUL 

EOU 

60 

t DEFALTT # 0F LEADER NULLS 

0055 


SBYTE 

EQU 

55H 

;SYNC BYTE (FILE HEADER) 

003C 

» 

HHEAD 

EQU 

3CH 

; RECOFD-HEADER F0P SH0 RT REC3PDS 

0077 


LHEAD 

ECU 

77H 

; REC0RD-HEADER F0R L0NC REC0RDS 

00 74 


LO FC 

EQU 

74H 

itND-OF-FILL HEADER 

0078 


E0 F 

EQU 

78H 

1MITS E0 F HEADER 

0012 

* 

TAPES 

EQU 

12H 

JTAPE STATUS ADDRESS 

0013 


TAPED 

EQU 

TAPES*I 

;TAPL DATA ADDRESS 

0001 

= 

ACINM 

EQU 

I 

;tape input-ready mask 

0002 


ACOM 

EQU 

2 

i TAP E OUTPUT-READY MASK 

Ou iO 


TYSTmt 

ECU 

10H 

I KEYBOARD STATUS ADDPESS 

0011 


TYDATA 

EQU 

TYSTAT+ 1 

[ JKLYE0ARD DATA ADDPESS 

0001 

■ 

INMASK 

ECU 

1 

; KEYBOARD INPUT-READY MASK 

0002 

a 

0 UTM SK 

EQU 

2 

;KEYB0APD 3UTPUT-READY MASK 

0012 

a 

BUFL 

EQU 

18 

; INPUT-BUFF EP LENGTH 

0000 

= 

CP 

ECU 

ODH 

;CARRIAGE RETURN 

OOOA 

=* 

LF 

EQU 

OAH 

;LIN L FEED 

007 F 


DEL 

ECU 

7FH 

; DELETE CHARACTER 

0008 


BACKUP 

ECU 

8 

JBACKUP CHARACTER 



\ > , , , > , 



ii, 

5000 

AF 

STAPT* 

XP.A 

A 

i GET A ZEP0 

5801 

320A5B 


STA 

HiXFL 

JPESET FLAG F0P HEX INPUT 

5804 

320E5D 


STA 

S FLAG 

;SET F0P INI TIAL I ZATI0N 

5807 

3E3C 


M VI 

A* SNUu 

5 DEFAULT NUMEEP 0F NULLS 

5809 

32145D 


STA 

NNUL 

I SET LEADER NULLS T0 DEFAULT 

58 OC 

31LA5D 


LXI 

SP,STACK 

580? 

CD4A59 


CALL 

CRLF 


58 12 

1 1 155D 


LXI 

D* M ES G 

)POINT T0 FIRST MESSAGE 

58 15 

CE005D 


CALL 

SEN DM 

; SEND IT 

5818 

CD2C59 


CALL 

READ 

; INPUT HLX/0CTAL M0DE 

58 IB 

FEOD 


CPI 

CR 

;CARRIAGE RETURN FOP HEX 

5810 

C22658 


JNZ 

INI TO 


5820 

CD4F59 


CALL 

LINE 

;0UTPUT LINE FEED F0P CR 

5823 

C32E58 


JMP 

INIT1 


58 2 6 

FE48 

INI TO* 

CPI 

*H ’ 

J HLX INPUT? 

58 28 

C23458 


JNZ 

INIT3 

; JUMP IF N0 T 

582B 

CD4A59 


CALL 

CRLF 

)0 UTPUT CR AND LF 

582 E 

CD005D 

INITli 

CALL 

SEN DM 

; PRINT ’HEX* 

5831 

C 3 45 58 


JMP 

INIT5 


5834 

FL4F 

INIT3t 

CPI 

'3 • 

;0 F0P 0 CTAL INPUT 

5836 

C20058 


JNZ 

START 

;ERROR# TRY AGAIN 

58 39 

320A5D 


STA 

HEXFL 

JST0PE 'O’ IN HEX FLAG 

58 3C 

CD4A59 


CALL 

CRLF 

;0UTPUT CR AND LF 

583 F 

1 12F5D 


LXI 

U MES2 

;PRINT ’OCTAL ' 

58 42 

CEO050 


CALL 

S EN DM 

;SEND IT 

5845 

1 1365D 

INIT5I 

LXI 

D* M ES3 

JP3INT T3 'INPUT *# ETC 

58 48 

CD005D 


CALL 

SEN EM 

;PRINT MESSAGE 

58 4B 

CD005D 


CALL 

SEN DM 

; PRINT '? ’ 

58 4 L 

3A0A5D 


L DA 

HEXFL 

; FETCH HEX/3CTAL FLAG 

58 51 

B7 


ORA 

A 

;IS IT Z ER0? 

58 52 

CA7F58 


JZ 

INI TH 

; JUMP IF HEX M0DL 

58 55 

CD6458 


CALL 

RDCR 

; SEE I F FIRST BYTE IS CR 

58 58 

CDF55C 


CALL 

0CTI2 

; SECOND OCTAL BYTE 

58 5B 

CDDB5C 


CALL 

R0CT2 


58 5L 

CDB55C 


CALL 

RHL0 2 


58 61 

C38B58 


JMP 

INI T 6 


58 64 

CD2C59 

F.DCPx 

CALL 

READ 

; FIRST BYTE 0F RECORD LENGTH 

58 67 

FEOD 


CPI 

CR 

JIS IT A CARRIAGE RETURN? 

58 69 

CO 


PNZ 


; RETURN I F NOT 

58 6A 

CD4F59 


CALL 

LINE 

;OUTPUT LINE FEED 

58 6D 

11415D 


LXI 

Dj MES4 

IP3INT TO ’ P. ECO PD LENGTH ’ 

5870 

CD005D 


CALL 

SEN DM 

;PRINT IT 

5873 

11525D 


LXI 

ILMESR 

; POINT TO •? • 

5876 

CD005D 


CALL 

SEN DM 

;PRINT IT 

5879 

21FFOO 


LXI 

H, RLEN 

i SET STANDARD RECORD LENGTH 

58 7C 

C38B58 


JMP 

INIT6 


587 F 

CD6458 

INITK t 

CALL 

PDCR 

ISLE IF FIRST BYTE IS A CR 

5882 

CD895C 


CALL 

HEX22 

i SECOND HEX BYTE 

588 5 

CD7B5C 


CALL 

RDHX2 


5888 

CDA85C 


CALL 

PHL 2 


588B 

220F5D 

INIT6X 

SHL D 

RECLN 

; STORE STANDARD RECORD LENGTH 

588 E 

3EFF 


M VI 

A, 255 


5890 

320B5D 


STA 

SFLAG 

J SET INITIALIZATION FLAG 
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589 3 

31LA5D 

RLSTRTl 

LX1 


SP* STACK 

589 6 

210000 


LX1 


H, 0 

;ZERO H> L 

5899 

220D5D 


SHLD 


0 FSET 

FZERO THE LOAD-OFFSET VECTOR 

589C 

AF 


XRA 


A 

; GET A Z ERO 

589D 

32135D 


STA 


L FLAG 

1 RESET LOAD-ERROR FLAG 

58 AO 

CD4A59 


CALL 


CRLF 


58A3 

3E3E 


mvi 


A* ’> * 

; PRINT '»l * FOR 

58 A 5 

C D 5B 59 


CALL 


OUTT 

t A PROMPT 

58 A8 

CDAD5C 


CALL 


COLON 

; THEN A COLON 

58 AB 

CD2C59 


CALL 


READ 

S INPUT THE TASK 

58AE 

FE4D 


CPI 


'M * 

; PRINT MODE AND RECORD LENGTH 

58 BO 

CAE7 58 


JZ 


MODE 


5863 

FL44 


CPI 


'O’ 

S DUMP TO TAPE 

58B5 

CA9D59 


JZ 


TDUMP 


58 B8 

FL4C 


CPI 


’L ’ 

;load 

58 BA 

CAFF5A 


JZ 


TuOAD 


58BD 

FE45 


CPI 



;load and EXECUTE 

58BF 

CAFF5A 


JZ 


TLOAD 


58C2 

FE56 


CPI 


•V* 

; VEPIFY 

58C4 

CAFF5A 


JZ 


TuOAD 


58 C 7 

FE4F 


CPI 


•a • 

;load tape at aj offset 

58 C9 

CABB5A 


JZ 


OFFST 


58 CC 

FE43 


CPI 


*C’ 

;SKIP OVER MITS CHECKSUM LOADER 

58C t 

CA225C 


JZ 


CLOADR 


58D1 

FL52 


CPI 


•R* 

S RESET HEX/OCTAL MODE 

58 D3 

CAOO58 


JZ 


START 

1 AND RECORD LENGTH 

5806 

FE4E 


CPI 


’N ' 

; SET NUMBER OF LEADER NULLS 

58 D8 

CA0C59 


JZ 


SETN 


58 DB 

FL47 


CPI 


’G' 

I GO SOMEWHERE 

58 DD 

C28D59 


JNZ 


ERROP 





;;;;;; 

s 11 n u 11 i s n n 111 n n a si i; t i; nn s t nn 



; ROUTINE T3 

JUMP TO ANOTHER PROGRAM 

58 LO 

CD9E5C 


CALL 


INHu 

5 GET H» L ADDRESS 

58 E3 

CD3F59 

GO 2* 

CALL 


GO 

iLOOK FOP CARRIAGE RETURN 

58 L6 

E9 

JPCHL: 

PCHL 



;0K* GOODEYE 



J SUBROUTINE 

TO 

PRINT CURRENT MODE (HEX OR OCTAL) 



; AND RECORD 

LENGTH 


58 E7 

3A0A5D 

MODE: 

L DA 


HEXFL 

; FETCH HEX/OCTAL MODE FLAG 

58 EA 

B7 


ORA 


A 

;IS IT ZERO? 

58 LB 

CAF 7 58 


JZ 


MO DEI 

;HEX INPUT IF ZERO 

58 tt 

t12F50 


LXl 


b» M ES 2 

i POINT TO 'OCTAL ' 

58 M 

CD0050 


CALL 


SEN DM 

iPRINT MESSAGE 

58 >4 

C3FD58 


JMP 


M0DE2 


58 f? 

1 12A5D 

M0DE1* 

LXI 


D* M ES 1 

i POINT TO 'HEX ’ 

58 FA 

CD005D 


CALL 


SEN DM 

; SEND MESSAGE 

58 F D 

1 1365D 

MODES: 

LXl 


D#MES3 

; POINT TO 'INPUT' 

5900 

C00050 


CALL 


SEN DM 

;PRINT MLS SAGE 

5903 

CD6759 


CALL 


BLANK 

; PRINT A BLANK 

590 6 

2AO PSD 


LHLD 


RLCLN 

; FETCH STANDARD RECORD LEN 

5909 

C37259 


JMP 


TERR 3 

; PRINT H* L IN HEX AND OCTAL 



; SUBROUTINE 

TO 

SET NUMBER OF NULLS ON TAPE 



; LEADER AND 

TRAILER 


590C 

117050 

SLTN: 

LXI 


b* M ESN 

; POINT TO MESSAGE 

590 F 

CD005D 


CALL 


SEN EM 

IPRINT IT 

59 12 

3A0A50 


LDA 


HEXFL 

; FETCH HEX/OCTAL FLAG 

59 15 

B7 


ORA 


A 

ilS IT ZERO 

5916 

CA1 F 59 


JZ 


SLTN 2 

IJUMP IF ZERO 

5919 

CD085C 


CALL 


RDOCT 

;OCTAL INPUT 

59 1C 

C32259 


JMP 


SETN 3 


59 IF 

CD785C 

S ETN 21 

CALL 


RDHEX 

; HEX INPUT 

5922 

78 

SLTN 3: 

MOV 


A* b 

;PUT IN A 

5923 

32145D 


STA 


NNUL 

J STORE IN MEMORY 

592 6 

CD4A59 


CALL 


CRLF 


59 29 

C39358 


JMP 


P.ESTRT 




; SUBROUTINE 

TO 

INPUT A 

BYTE FROM KEYBOARD 

5920 

DB 10 

READ: 

IN 


TYSTAT 

; CHECK STATUS 

59 2 E 

E601 


AN I 


INMASK 

;MASK UNWANTED BITS 

59 30 

CA2C59 


JZ 


READ 

;LO0P UNTIL READY 



TAPEMON 


89 


59 33 

DBI 1 

IN 

TYDATA 

;rlad character 

5935 

E67F 

AN I 

7FH 

; STRIP PARITY 

5937 

F E18 

CPI 

24 

; RESTART ON 

5939 

CA9358 

JZ 

RESTRT 

; ON CONTROL-X 

59 3C 

C35B59 

JMP 

OUTT 

i ECHO INPUT 


; 

; SUBROUTINE TO LOOK A CARRIAGE RETURN 

; AT THE END OF KEYBOARD-INPUT LINE 
; 


59 3 F 

CD2C59 

COt 

CALL 

REAO 

;INPUT CHARACTER 

59 42 

FEOD 


CPI 

CR 

JA CARRIAGE RETURN7 

59 44 

C28D59 


JN2 

ERROR 

I NO* RESTART 

5947 

C34F59 


JMP 

LINE 

j LINE FEED AND NULLS 



; CARRIAGE RETURN- LINE 

FEED AND NULLS 

59 4A 

3E0D 

CRLFl 

M VI 

A- CP, 

JCARRIAGE RETURN 

59 4C 

CD5B59 


CALL 

OUTT 


59 4 F 

3E0A 

LINE} 

M VI 

A»LF 

iLINE FEED 

59 51 

CD5BS9 


CALL 

autT 


59 54 

AF 


XRA 

A 

; GET A ZERO 

59 5 5 

CD5B59 


CALL 

OUTT 

I OUTPUT THREE NULLS 

59 58 

CD5B59 


CALL 

OUTT 

ITO PRINTER 



; SUBROUTINE 

TO OUTPUT A CHARACTER FROM KEYBOARD 

59 SB 

F 5 

OUTTi 

PUSH 

PSV 


59 5C 

OB 1 0 

VAI TO 1 

IN 

TYSTAT 

I CHECK STATUS 

59 5E 

E602 


ANI 

OUTMSK 

;OUTPUT READY? 

59 60 

CA5C59 


JZ 

VAI TO 

; NO* LOOP UNTIL READY 

59 63 

FI 


POP 

PSV 

; YES 

59 64 

031 1 


OUT 

TYDATA 

; OUTPUT A BYTE TO KEYBOARD 

59 66 

C9 


RET 



59 67 

3E20 

BLANK} 

M VI 

A* * * 

;load a blank 

59 69 

C35B59 


JMP 

OUTT 

;PRINT IT 



1 ERROR 

MESSAGES 


59 6C 

115F5D 

MERROFl 

LXI 

O-MESM 

J MEMORY ERROP 

59 6F 

CD005D 

TERP2t 

CAL i. 

SEN DM 

J SEND MESSAGE 

59 72 

CD5F5C 

TLRP3I 

CALL 

0 UTHL 

; PRINT H/L IN HEX 

597 5 

CDAD5C 


CALL 

COL0N 


5978 

CDBC5C 


CALL 

0 UTHLa 

J PRINT H/L IN OCTAL 

59 7B 

C 39 3 58 


JMP 

RESTPT 


59 7 E 

1 1 AO 50 

FN ERR: 

LXI 

0- A LS F 

iP0t.«T TO INPUT FILE NAME 

5981 

CD005B 


CALL 

SEN HI 

;PRINT IT 

5984 

1 l CO 50 


LXI 

D- I EUF 

; POINT TO FILL NAME ON TAPE 

5987 

C00050 


CALL 

SEN DM 

;ppint IT 

598A 

C 39 3 58 


JMP 

RESTRT 


598 D 

115750 

EFR0P: 

LXI 

D-MESV 

;POINT TO *VKAT? ’ 

5990 

CD005D 


CALL 

SEN DM 

;PRINT IT 

5993 

3A0B5D 


LOA 

SFLAt 

;FETCH INITIALIZATION FLAG 

599 6 

B7 


ORA 

A 

IIS IT Z LP0? 

599 7 

CA0058 


JZ 

START 

JSTART 0VEP IF S0 

599A 

C 39 3 58 


JMP 

RESTRT 

; 0THLPVISE RESTART 



;j;;;;;;i;;;;;;i;;;;;;;;;;;;;;;;;;i;;;;;;;;;;;;;; j; j 



; ENTRY 

FOP ] 

DUMP TO TAPE 

59 9 D 

CD9E5C 

TDlMPl 

CALL 

I NHL 

I INPUT START ADDRESS <HEX) 

59 AO 

EB 


XCKG 



59 A1 

C09E5C 


CALL 

1NHL 

JINPUT STOP ADDRESS 

59 A4 

EB 


XCHG 


I START T0 H/L* ST0P T0 D/E 

59 A 5 

13 


I NX 

D 

J INCREMENT STOP ADDRESS 

59 At 

E5 


PUSH 

H 

I PUSH H/L 0NT0 STACK 

59 A 7 

CD9E5C 


CALL 

1NHL 

;INPUT AUT0STAPT ADDRESS 

59 AA 

E3 


XTHL 


l EXCHANGE STACK FOR H/L 

59 AB 

E5 


PUSH 

H 


59 AC 

0EO9 


M VI 

C-9 

l FILE-NAME COUNT PLUS ONE 

59AE 

2 l CO 50 


LXI 

H# IBUF 

i POINT TO INPUT BUFFER 

59 El 

CD9D5A 

TDMP3* 

CALL 

RFILE 

;INPUT FILE-NAME CHAR. 

59 B4 

77 


MOV 

Ms A 

J PUT CHARACTER IN BVFFEP 

59B5 

23 


INX 

H 

jINCREMENT BUFFER POINTER 

59 B 6 

FEOD 


CPI 

CR 

;LOOK FOR CARR1AC RETURN 

59 Eg 

CAD759 


JZ 

TLMP5 

I AT END OF FILE NAME 
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59BB 

F L2C 


CPI 

•/ • 

; COMMA AT END OF FILE NAM l 

596D 

CAC759 


JZ 

TDMpfc 

; COMMENTS COME NEXT 

59C0 

OD 


DCR 

C 

/•DECREMENT FILE-NAME COUNT 

59 C l 

CAS D59 


JZ 

ERR0P. 

;QUIT IF TOO MANY CHAP.ACTERS 

59 C 4 

C3B159 


JMP 

TIMP3 

INEXT CHARACTER 

59 C7 

OEOA 

rDMP6l 

M VI 

C/ 10 

/8 COMMENT CHARACTERS 

59 C9 

OD 

rDMP7x 

DCR 

C 

; DECREMENT COUNT 

59 CA 

CA6D59 


JZ 

ERROR 


59 CD 

CD9D5A 

rDMP8» 

CALL 

RF1LE 

JINPUT COMMENT 

59 DO 

77 


M3 V 

M/ A 

/‘STORE IN MEM3PY 

59 D1 

23 


I NX 

H 

J INCREMENT POINTER 

59 D2 

FLOD 


CPI 

CR 

j L03K F3R CAPRIACE RETURN 

59 D4 

C2C9 59 


J HZ 

TDMP7 

/• AT END OF COMMENT 

59 D7 

CD4F59 

roMPSi 

CALL 

LINE 

FPRINT A LINE FEED 

59 DA 

CD365C 


CALL 

LEADR 

J OUTPUT A LEADER OF NULLS 

59 DD 

3E55 


mvi 

A» SBYTE 

;SYNC BYTE 

59 DF 

CD515C 


CALL 

TO UT 

/•OUTPUT FILE HEADER 

59 E2 

21C05D 


LX I 

H/ IBUF 

;POINT TO INPUT BUFFER 

59 E5 

7 E 

rDMP4t 

MOV 

Ay M 

; FETCH FILE NAME 

59 E6 

CD515C 


CALL 

TO UT 

; OUTPUT FILE NAME 

59 E9 

23 


I NX 

H 


59 EA 

FEOD 


CPI 

CR 

; CARRIAGE RETURN MARKS 

59 LC 

C2E559 


JNZ 

TDMP4 

1 END OF FILE NAM E/COMM ENTS 

59 LF 

El 


POP 

H 


59 FO 

3A105D 


LDA 

PECL2 

; FETCH HIGH HALF OF PEC. LEN. 

59 F3 

B7 


0PA 

A 

; EQUAL TO ZEFO? 

59 F 4 

C26S5A 


JNZ 

DO UB 

J NO/ RECORD LENGTH > 2 55 



POUTINE TO DUMP FLCOFDS LESS THAN 2 56 BYTES LONG 

59 F 7 

3E3C 

ruo: 

MVI 

A* RHEAD 

; RECORD-HEADER EYTE 

59 F9 

CD515C 


CALL 

TOUT 

i OUTPUT RECORD HEADEP 

59 FC 

AF 


XP.A 

A 

;ZERO ACCUMULATOR 

59 FD 

32115D 


STA 

RECA 

/•ZERO HIGH BYTE OF REC LENGTH 

5A00 

CD905A 


CALL 

CINE 

JH0V FAR TO END? 

5A0 3 

3AOF5D 


LDA 

RECLN 

ISET FOR FULL RECORD 

5A06 

C20E5A 


JNZ 

NEV2 

lUSE FULL RECORD LENGTH CD>H) 

5A09 

B9 


CMP 

C 

; COMPARE TO E - L 

5A0A 

DAO E5A 


JC 

NEV2 

lUSE FULL RECORD LENGTH 

5A0D 

79 


MOV 

A/ C 

/•SHORT RECORD 

5A0E 

4F 

LV2: 

M3 V 

C/ A 

I PUT PECORD LENGTH IN C 

5AOF 

CD515C 


CALL 

TOUT 

;0UTPUT RECORD L EN GTH 

5A12 

CD185A 


CALL 

TD3 

/•OUTPUT H/L/ DATA/ CHECKSUM 

5A1 5 

C3F759 


JMP 

TDO 

; START NEXT PECORD 



OUTPUT RECORD 

ADDRESS/ DATA/ AND CHECKSUM 



TEST 

FOR END OF FILL 

AND RETURN IF NOT EOF 

5A18 

7 D 

TD3: 

MOV 

A/L 

/•OUTPUT LOW EYTE 

5A19 

CD515C 


CALL 

TOUT 

; OF RLCOPD ADDRESS 

5A1C 

45 


113 V 

B/L 

/'START CHECKSUM WITH L 

5A1D 

7C 


MO V 

A/ H 

I OUTPUT HIGH B V T E 

5A1 E 

CDSl50 


CALu 

TOUT 

/* 3 F RECORD ADDRESS 

5A2t 

7E 

TDli 

MOV 

A/ M 

; FETCH DATA BYTE 

5A22 

CD515C 


CALL 

TOUT 

/•OUTPUT IT 

5A25 

23 


I NX 

H 

1 INCREMENT POINTLP 

5A2 6 

79 


MOV 

H/ C 

; GET RECORD COUNT (LOV) 

5A2 7 

DEO l 


SUI 

1 

; DECREMENT IT 

5A29 

4 F 


MOV 

C/A 

; SAVE IT BACK IN C 

5A2A 

CA3L5A 


JZ 

TD5 

/•JUMP IF C IS ZERO 

5A2D 

D2215A 


JNC 

TDl 

; CONTINUE IF NOT 255 

5A30 

3A115D 


LDm 

RECA 

i FETCH RECORD COUNT (HIGH) 

5A33 

DEO 1 


SUI 

1 

I DECREMENT IT 

5A3 5 

32115D 


STA 

RECA 

1 SAVE I T 

5A38 

DA455A 


JC 

TD2 

/•END OF RECORD IF 2 55 

5A3B 

C3215A 


JMP 

TDl 

;nlxt BYTE 

5A3E 

3A115D 

TD5: 

LDA 

RECA 

; FETCH PECO PD COUNT (HIGH) 

5A41 

Bl 


ORA 

C 

/‘SEE IF BOTH HIGH AND LOV - 0 

5A42 

C2215A 


JNZ 

TDl 

/•CONTINUE IF NOT 



END 

OF RECORD 





PROCESS CHECKSUM AND 

SEE I F END OF FILE 

5A45 

78 

TD2: 

MOV 

A/ b 

I FETCH CHECKSUM 

5A46 

CD515C 


CALw 

TO UT 

/‘OUTPUT IT 
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5 A 49 

CD905A 



CALL 

CEND 


;HOV MUCH IS LEFT? 

5A4C 

El 



ORA 

C 


; ZERO? 

5A4D 

CO 



RNZ 



; START NEXT RECORD 



; 

END 

OF FILE- OUTPUT 

EOF BYTE AND AUTOSTART ADDRESS 

5A4£ 

FI 

TD4* 

POP 

PSW 


; RAISE STACK 

5A4F 

3E74 



M VI 

A- EO FC 

; END-0 F- FILE MARK 

5A51 

CD515C 



CALL 

TOUT 


-OUTPUT IT 

5A54 

El 



POP 

H 


)FETCH AUTOSTART ADDRESS 

5A5 5 

7 D 



MOV 

A-L 



5A5 6 

CD515C 



CALL 

TOUT 


;OUTPUT LOW HALF 

5A59 

45 



MOV 

B-L 


ISTAPT CHECKSUM WITH L 

5A5A 

7C 



MOV 

A- H 



5A5B 

CD515C 



CALL 

TOUT 


-•OUTPUT HIGH HALF 

5A5E 

78 



MOV 

A* B 


; FETCH CHECKSUM 

5A5F 

CD515C 



CALL 

TO UT 


-•OUTPUT IT 

5 A 62 

CD365C 



CALL 

LLADR 


IOUTPUT A TRAILER OF NULLS 

5A65 

C 39 3 58 



JMP 

RESTRT 

;next TASK 



; 

ROUTINE TO 

DUMP RECORDS LONGER THAN 255 BYTES 

5A68 

3E77 

DOUBl 

M VI 

A-LHEAD 

1L0NG RECORD-HEADER BYTE 

5A6A 

CD515C 



CALL 

TOUT 


)OUTPUT RECORD HEADEP 

5A6D 

CD90 5A 



CALL 

C END 


;hov far to end? 

5A70 

£5 



PUSH 

H 


; SAVE H-L ON STACK 

5A71 

2A0F5D 



LHLD 

RECLN 


; FETCH FULL RECORD LENGTH 

5A74 

7D 



MOV 

A-L 


I SUBTRACT REMAINING 

5A7 5 

9 1 



SUB 

C 


; FROM END OF 

5A7 6 

70 



MOV 

A- H 


; FILE 

5A77 

98 



SBB 

B 


J CARRY SET IF FULL PEC LENGTH 

5A78 

D27D5A 



JNC 

DOUBF 


; LONGER THAN REMAINING BYTES 

5A7B 

4D 



MOV 

C-L 


ICOPY FULL RECORD LENGTH 

5A7C 

44 



MOV 

B- H 


; FROM H-L TO B-C 

5A7D 

60 

DOUBF: 

MOV 

H- B 



5A7E 

79 



MOV 

A- C 



5A7F 

CD515C 



CALL 

TOUT 


; OUTPUT REC LEN (LOU BYTE) 

5A82 

70 



MOV 

A- H 


-‘FETCH HIGH BYTE 

5A8 3 

3211 5D 



STA 

RECA 


1 STORE HIGH HALF OF REC LEN 

5A8 6 

CD515C 



CALL 

TOUT 


IOUTPUT REC LEN (HIGH BYTE) 

5A89 

El 



POP 

H 


-•RESTORE POINTER 

5A8 A 

CD185A 



CALL 

TD3 


1 OUTPUT H-L- DATA- CHECK SUM 

5A8D 

C3 68 5A 



JMP 

DO UB 


5 START NEXT RECORD 



; 

SUBROUTINE 

TO FIND 

THE DIFFERENCE BETWEEN 



; 

D- E 

AND H-L 

AND PUT 

THE DIFFERENCE IN EC 



t 

IF START ADDRESS > 

STOP ADDRESS PRINT ’WHAT?' 

5A90 

7B 

CENDs. 

MOV 

A- E 


l COMPARE LOW STOP 

5A91 

95 



SUB 

L 


; TO LOW POINTER 

5A92 

4F 



MOV 

C-A 


-•SAVE DIFFERENCE IN C 

5A9 3 

7A 



MOV 

A- D 


j COMPARE HIGH STOP 

5A9 4 

9C 



SBB 

H 


l TO HIGH POINTER 

5A9 5 

47 



MOV 

B- A 


; SAVE DIFFERENCE IN B 

5A9 6 

DO 



RNC 



; OK I F D- E > H-L 

5A9 7 

7A 



MOV 

A- D 


; SEE IF D- E 

5A98 

B3 



ORA 

E 


; IS ZERO 

5A99 

C28D59 



JNZ 

ERROR 


; IMPROPER INPUT- H-L > D-E 

5A9C 

C9 

; 


RET 



/UPPER LIMIT IS FFFF HEX 



; 

SUBROUTINE 

TO INPUT 

A 

FILE-NAME OR COMMENT CHARACTER 



- 

FROM 

THE KEYBOARD. 

DEL (RUB OUT) DELETES PRIOR 



; 

CHARACTER. 




5A9D 

CD2C59 

RULE: 

CALL 

READ 


5 INPUT FROM KEYBOARD 

5AA0 

FEOD 



CPI 

CR 


iCARRlHut RtTURN 

5AA2 

C8 



RZ 



lYLS- RETURN 

5AA3 

FL20 



CPI 

* ' 


;CHECK FOR CONTROL CHARACTER 

5AA5 

DA9D5A 



JC 

RFILE 


-•REJECT CONTROL CHARACTER 

SAA8 

FE7F 



CPI 

DEL 


J DELETE (RUBOUT) CHAP.ACTER 

5AAA 

CO 



RNZ 




5AAB 

79 



MOV 

A- C 


;FETCH CHAPACTEP COUNT 

5AAC 

FE09 



CPI 

9 


1 POINTER AT START OF BUFFER? 

5AAL 

CA9D5A 



JZ 

RFILE 


1YLS- IGNOPL DEL 

5AB1 

SB 



DCX 

H 


; DECREMENT POINTER 
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5AB2 

OC 

INR 

C 

; INCREMENT C0UNT 

5AB3 

3 EOS 

M VI 

A# BACKUP J BACKUP CHAPACTEP 

5ABS 

CD5B59 

CALL 

BUTT 

;PRINT IT 

5AB8 

C39D5A 

JMP 

RULE 

JNEXT CHARACTER 


nnnnnnjijinnssnnunjjtjtntnjntnnnnin 

; L0AD A TAPE AT 0THER THAN ITS N0PMAL ADDRESS 
; 0FFSET VECT0P IS ADDED T0 THE N0RMAL H *L ADDRESS 
J 0R SUBTRACTED IF PRECEEDED BY A MINUS SIGN 


5 ABB 

57 

0FFSTI 

M0 V 

D# A 

J SAVE '0* CBMMAND IN D 

5 ABC 

3A0A5D 


LDA 

HEXFL 

J FETCH HEX/0CTAL INDICAT0F 

5ABf 

B 7 


0 PA 

A 

iis IT ZEF3? 

5AC0 

CAEASA 


JZ 

0 FF1 

JJUMP IF HEX INPUT 

5AC3 

CD2C59 


CALL 

READ 

J INPUT A BYTE 

5ACC 

FE2D 


CPI 

' 

; CHECK F0P NEGATIVE 0 F F SET 

5AC8 

CAD75A 


JZ 

0FF4 

I JUMP IF NEGATIVE 

5ACB 

CDF55C 


CALL 

0CTI2 

1C0NTINUE WITH 0CTAL ADDRESS 

5ACE 

CDDBSC 


CALL 

R0CT2 


SADI 

CDB55C 


CALL 

RHL02 


5AD4 

C3FB5A 


JMP 

BFF2 


5AD7 

CDB25C 

0FF4* 

CALL 

RDHL0 

;INPUT NEGATIVE 0CTAL 0FFSET 

SADA 

C3E05A 


JMP 

0FF5 


5ADD 

CDASSC 

0FF3* 

CALL 

REA DHL 

JINPUT NEGATIVE HEX 0FFSET 

5AE0 

AF 

0FF5: 

XRA 

A 

J GET A ZER0 

SAEl 

95 


SUB 

L 

JINVERT L 

5AE2 

6F 


M0 V 

L# A 

I SAVE I T 

5AE3 

3E00 


M VI 

A» 0 

;ZER0 A VITH0UT RESETINC CARRY 

SAE5 

9C 


SBB 

H 

J INVERT H 

5AE6 

67 


MB V 

H# A 

J SAVE IT 

5AE7 

C3FB5A 


JMP 

0FF2 


5AEA 

CD2C59 

0FFII 

CALL 

READ 

1 INPUT A BYTE 

5AED 

FE2D 


CPI 

♦- * 

J CHECK FBR NEGATIVE 0PFSET 

5AEF 

CADD5A 


JZ 

0 FF3 

JJUMP IF NEGATIVE 

5AF2 

CD895C 


CALL 

HEX22 

1C0NTINUE WITH HEX ADDRESS 

SAFE 

CD7B5C 


CALL 

RDHX2 


5AF8 

CDA8 5C 


CALL 

RHL2 


SAFB 

220D5D 

0 FF2t 

SHLD 

0FSET 

1 SAVE 0FFSET IN MEM0RY 

SAFE 

7A 


M0V 

A# D 

JM0VE TASK T0 A 


; 

i ENTRY FBR LBAD# EXECUTE# AND VERIFY 


5AFF 320C5D TL0ADt STA TASK J SAVE TASK IN MEM0RY 

i 

i CHECK F0R INPUT 0F FILE NAME (UP T0 EIGHT 
J CHARACTERS) FR0M KEYBOARD 
$ 


5B02 

21B75D 


LXI 

H#fbuf 

J PBIMT T0 FILE-NAME BUFFER 

5B0 5 

0E09 


M VI 

C# 9 

;8-CHARACTER FILE NAME 

5B07 

CD9D5A 

TLDll 

CALL 

RFILE 

;INPUT FILE-NAME CHARACTER 

5B0A 

77 


M0V 

M* A 

J PUT IN BUFFER 

5B0B 

23 


I NX 

H 

;INCREMENT BUFFER P3INTER 

5B0C 

FEOD 


CPI 

CR 

;<CR> AT END 0 F FILE NAME 

5B0E 

CA18 SB 


JZ 

TLD5 

J END 0 F FILE NAME 

5B| 1 

OD 


DCR 

C 

J DECREMENT FILE-NAME C0UNT 

5B12 

CA8D59 


JZ 

ERR0R 

;TBB MANY CHARACTERS 

5B15 

C3075B 


JMP 

TLD1 

JNEXT CHARACTER 

5b 18 

32C05D 

TLD5* 

STA 

IBUF 

J PUT CARR RET IN BUFFER 

5B1B 

CD4F59 


CALL 

LINE 

J0UTPUT LINE FEED 



l L00K 

FBR FILE 

HEADER 

AT BEGINNING 0F TAPE 

5B1E 

DB 1 2 

TINN* 

IN 

TAPES 

J CHECK STATUS 

5B20 

E601 


AN I 

ACINM 

J TAPE-INPUT MASK 




IF 

JMPZ 

J L00P 0N ZER0 

5B22 

CA 1 E5B 


JZ 

TINN 





ELSE 


JL00P NBT ZER0 




JNZ 

TINN 

JL00P UNTIL READY 




ENDI F 



5B25 

DB13 


IN 

TAPED 

J INPUT A BYTE 

5B27 

FE55 


CPI 

SBYTE 

J IS IT A FILE HEADER? 

5B29 

C21E5B 


JNZ 

TINN 

J L.0BP UNTIL IT IS 

5B2C 

CD315C 


CALL 

BELL 

J RING BELL AT START 

5B2F 

21B75D 


LXI 

H#FBUF 

JP0INT T0 FILE-NAME BUFFER 

SB32 

7 E 


M0 V 

A# M 

JFETCH FIRST CHAR 0F FILENAME 



TAPEMON 
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5B33 

FLOC 


CPI 

CR 

;l$ IT A CARRIAGE RETURN? 

5B35 

CA6BSB 


JZ 

Ti-0 

;SKIP 0VEP FILE NAME (IF ANY) 

5B38 

1 1C05D 


LXI 

D, I BUF 

JP0INT T0 INPUT BUFFER 



1 INPUT 

FILL 

NAME AND 

COMMENTS FROM TAPE 

5B3B 

CD435C 

TLD2: 

CALL 

TIN 

; INPUT CHARACTER FR0M TAPE 

5B3E 

12 


STAX 

D 

I ST0RE IN INPUT BUFFER 

5B3F 

13 


IMX 

D 

; INCREMENT BUFFER 

5B40 

FEOD 


CPI 

CP 

JCARP RET AT END 0F FILE NAME 

5B42 

CA615B 


JZ 

TLD4 

I END 0 F FILE NAME 

5B45 

FE2C 


CPI 

*, ' 

;A C0MMA SEPARATES FILE NAME 

5B47 

CA575B 


JZ 

TLD3 

I AND C0MMENTS 

5B4A 

BE 


CMP 

M 

l SEE IF FILE NAMES MATCH 

5B4B 

23 


I NX 

H 

; INCREMENT FILE-NAME P0INTER 

5B4C 

CA3B5B 


JZ 

TLD2 

i NEXT CHARACTER 

5B4F 

3EFF 


M VI 

A# 255 

; ERR0R* FILE NAMES D0N 'T MATCH 

5B51 

32135D 


STA 

L FLAG 

I SET ERR0R FLAG 

5B54 

C33B5B 


JMP 

TLD2 

J C0NTINUE INPUTTING FILE NAME 

5B57 

CD435C 

TLD3I 

CALL 

TIN 

; INPUT C0MMENT CHARACTER 

5B5A 

12 


STAX 

D 

;ST0RE IN INPUT BUFFER 

5B5B 

13 


IMX 

D 

I INCREMENT BUFFER P0INTER 

5B5C 

FEOD 


CPI 

CR 

; CARRIAGE RETURN ENDS C0MMENT 

5B5E 

C2575B 


JNZ 

TL D3 

I NEXT COMMENT 

5B61 

AF 

TLD4* 

XRA 

A 

; GET A Z ER0 

5B62 

IB 


DCX 

D 

1INCR INPUT BUFFER POINTER 

SB 63 

12 


STAX 

D 

* PUT ZERO AT END 0F BUFFER 

SB 64 

3A135D 


LDA 

L FLAG 

; FETCH LOAD-ERROR FLAG 

SB 67 

B7 


BRA 

A 

; I S IT ZERO? 

5B68 

C27E59 


JNZ 

FM ERR 

I ERROR IF NOT ZERO 



} LOOK 

FOR REC0RD HEADER 0R END-0 F- FILE BYTE 

5B6B 

CD435C 

TLOl 

CALL 

TIN 

i INPUT A BYTE 

5B6E 

FE78 


CPI 

E0F 

; END OF FILE? 

5B70 

CAEF5B 


JZ 

EXEC 

;yes 

5B73 

FE74 


CPI 

L0FC 

JEOF with checksum? 

5B7 5 

CAEF5B 


JZ 

EXEC 


5B78 

FE77 


CPI 

LHEAD 

ILONG RECORDS? 

5B7A 

CAE15B 


JZ 

DIN 

I YES 

5B7D 

FE3C 


CPI 

RHEAD 

; BEGINNING OF RECORD? 

5B7F 

C26B5B 


JNZ 

TLO 

I NO, TRY AGAIN 



i ROUTINE T0 

INPUT REC0RDS SH0FTER THAN 256 BYTES 

5B82 

CD435C 

TLSl 

CALL 

TIN 

; INPUT RECORD LENGTH 

5B8 5 

4 F 


M0 V 

C, A 

; SAVE IT IN C 

5B8 6 

B7 


0RA 

A 

; RECORD LENGTH ZERO? 

5B87 

CAEB5B 


JZ 

TLA 

;YLS* MITS USES ZERO FOR 256 

5B8A 

AF 


XRA 

A 

; GET A Z ERO 

5B8B 

32125D 

TLS2I 

STA 

RECI 

JZLRO HIGH BYTE OF REC LENGTH 

5B8E 

CD945B 


CALL 

TL 2 

i INPUT REST OF RECORD 

5B9 1 

C36B5B 


JMP 

TLO 

i NEXT RECORD 



1 ROUTINE TO 

INPUT REC0RD ADDRESS* DATA# AND 



; CHECKSUM, AND TEST FOR Ej3 F 

5B94 

2A0D5D 

TL2i 

LHLD 

0FSET 

J PUT OFFSET IN H*L 

5B97 

CD435C 


CALL 

TIN 

i GET LOW BYTE OF RECORD ADDR 

5B9 A 

5F 


M0V 

E# A 

J SAVE IT IN E 

5B9B 

47 


M0V 

B# A 

i START CHECKSUM WITH IT 

5B9C 

CD435C 


CALL 

TIN 

;get high byte of record addr 

5B9 f 

57 


M0 V 

D* A 

;SAVE IT in d 

5BA0 

19 


DAD 

D 

;ADD OFFSET TO H* L ADDRESS 

5BA1 

3A0C5D 


LDA 

TASK 

;FETCH TASK 

5BA4 

57 


M0 V 

D* A 

;SAVE IT IN D 

5BA5 

CD435C 

TLll 

CALL 

TIN 

;INPUT DATA BYTE 

5BA8 

5F 


M0 V 

E, A 

; SAVE BYTE 

5BA9 

7A 


MOV 

A# D 

;CHECK TASK 

5 BAA 

FE56 


CPI 

•V' 

l SEE IF VERIFYING 

SBAC 

7B 


M3 V 

A# L 

JRESTORE DATA BYTE 

5BAD 

CAB15B 


JZ 

SKIP 

i J IMP IF VERIFYING 

5BB0 

77 


M0 V 

M* A 

I STORE DATA IN MEMORY 

5BB1 

BE 

SKIP* 

CMP 

M 

i CHECK MEMORY 

5BB2 

C2 6C 59 


JNZ 

M ERR0 R 

i BAD MEMORY 

5BB5 

23 


INX 

H 

I INCREMENT MEMORY POINTER 
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5BB6 

79 


M0V 

A* C 

; GET PEC0RD C0UNT (L0V) 

5BB7 

D601 


SUI 

1 

; DECREMENT IT 

5BB9 

4F 


M0 V 

C* A 

5 SAVE I T 

5B8A 

CACE5B 


JZ 

TL 5 

IIF Z EP.0 » CHECK HIGH HALF 

5BBD 

D2A55B 


JNC 

TL l 

; C0NTINUE I F N0T £55 

5BC0 

3A125D 


LDA 

RECI 

I FETCH REC0PD C0 (JNT (HIGH) 

SBC 3 

D601 


SUI 

1 

; DECREMENT IT 

5BC5 

32125D 


STA 

RECI 

I SAVE IT 

5BC8 

DAD55B 


JC 

TL 3 

; END 0 F RECORD I F 255 

5BCB 

C3A55B 


JMP 

TL 1 

/NEXT BYTE 

5BCL 

3AI25D 

TL5* 

LDA 

RE^I 

; FETCH PLC0RD C0UNT (HIGH) 

5BD1 

B1 


0RA 

C 

ISLE IF RLC0PD C01NT IS Z EP0 

5BD2 

C2A55B 


JNZ 

TL 1 

; C0NTIUNE I F N0T 

5BD5 

48 

TL3l 

M0V 

C* P 

IM0VE SIM T0 C 

5BD6 

CD435C 


CALL 

TIN 

; INPUT CHEXSUM 

5BD9 

B9 


CMP 

C 

J C0MPAPE T0 SUM 

5BDA 

C8 


RZ 


IFLTUPN IF 0K 



; PPINT 

A ’C 

F0P CHECKSUM EPR0R 

5BDB 

1 1825D 

CSERRi 

LXI 

D* M ES C 

;CHECKSUM EPP0P 

5BDE 

C36F59 


JMP 

TERR2 

i PPINT EPP0P MESSAGE 



t ROUTINE T3 

INPUT P.EC0 

PDS L0NGEP THAN 255 BYTES 

5BE1 

CD435C 

DIN: 

CALL 

TIN 

I INPUT REC LENGTH <L0V> 

5BE4 

4 f 


M0 V 

C* A 

I SAVE IT IN C 

5BE5 

CD435C 


CALL 

TIN 

; INPUT REC LENGTH (HIGH) 

SBE8 

C38B5B 


JMP 

TLS2 



; HITS USES A REC0RD LENGTH 0F 2 ER0 F0F A RLC0RL 
; LENGTH 0F 2 56. THIS SUBR0UTIN E. PUTS A 0N E IN 
; RECI S3 THAT SUCH TAPES ARE PR0PLRLY READ. 


SBEB 

3C 

TL4* 

INP 

A 

l INCREMENT REC0RD LENGTH T0 

5BEC 

C38B5B 


JMP 

TLS2 

;ST0PE IN RECI 



J END 0 F FILL, ] 

INPUT AVT0START ADDRESS 

5BEF 

4F 

EXECl 

M0V 

C# A 

ISAVE END-0 F-FILE HEADER 

5BF0 

CD435C 


CALL 

TIN 

; INPUT L0V BYTE 0F A DDR. 

5BF3 

6F 


140 V 

L* A 

;PUT INT0 L 

5BF4 

47 


M0 V 

B. A 

)START CHECKSUM WITH L 

5BF 5 

CD435C 


CALL 

TIN 

; GET HIGH BYTE 0F AUT0START 

5BF8 

67 


M id V 

H* A 

IPUT INT0 H 

5BF9 

79 


M0 V 

A> C 

i GET END-0 F-FILE HEADER 

5BFA 

FE74 


CPI 

E0FC 

; CHECKSUMM ED? 

5BFC 

C2075C 


JNZ 

EX EC 3 

IJUMP IF N0 CHECKSUM 

5BFF 

48 


M0V 

C* h 

IPUT CHECKSUM IN C 

5C00 

CD435C 


CALL 

TIN 

i INPUT CHECKSUM BYTE 

5C03 

B9 


CMP 

C 

S C3MPARL T0 SUM 0 F H AND L 

5C04 

C2DB5B 


JNZ 

CSERR 

IJUMP IF ERR0R 

5C07 

7A 

EXEC3l 

M0V 

A# D 

; CHECK TASK 

5C08 

FE45 


CPI 

•E* 

* SEE IF EXECUTING 

5C0A 

CAE658 


JZ 

JPCHL 

;yes* G0 T0 h/l 



; 



N0T EXECUTING 

5C0D 

1 1C05D 


LXI 

D* I BUF 

;P0INT T0 FILE NAME 

5C10 

IA 


LDAX 

D 

;FETCH FIRST CHARACTER 

SCI 1 

FEOD 


CPI 

CR 

MS IT A CARRIAGE RETURN? 

5CI3 

CA1C5C 


JZ 

EX EC 2 

1 SKIP FILE NAME I F S0 

SC 1 6 

CD005D 


CALL 

SEN CM 

/PRINT FILE NAME. C0MMENTS 

5CI9 

CD 67 59 


CALL 

BLANK 

/ PPINT A BLANK 

5CIC 

1 I955D 

LX EC 2: 

LXI 

D* M ES E 

/POINT T0 'STARTS AT* 

5CJF 

C36F59 


JMP 

TERR2 

/PRINT IT 



ttnnsi 


/////////////////////////// 



J ENTRY 

T0 SKIP 

0 VEF MITS CHECKSUM L0ADER 



; AT BEG1NNNING 

0 F TAPE 


5C22 

57 

CL0ADR: 

M0 V 

D# A 

/SAVE TASK 

5C23 

CD435C 

CLD2: 

CALL 

TIN 

/INPUT A BYTE 

5C2 6 

FEE 3 


CPI 

0F3H 

; CHECK F0R DI 0PC0DE 

SC28 

C2235C 


JNZ 

CLD2 

;n0t yet* next byte 

5C2B 

CDS 1 SC 


CALL 

BELL 

;RING BELL T0 INDICATE 




TAPEMON 


; END OF CHECKSUM LOADER 


5C2E 

C36B5B 


JMP 


TLO 

iSTART MAIN PROGRAM 



S ROUTINE TO 

RING THE BELL 

5C31 

3E07 

BELLS 

M VI 


A* 7 


5C33 

C35B59 


JMP 


OUTT 




J SUBROUTINE 

TO 

OUTPUT j 

d LEADER OF NULLS FOP 



; A LEADER AND . 

A TRAILER 

5C36 

3A145D 

* 

LEADRt 

LDA 


NNUL 

; FETCH NUMBER OF NULLS 

5C39 

4F 


MOV 


C* A 

;put IN C 

5C3A 

AF 


XRA 


A 

; GET A NULL 

5C3B 

CD5I5C 

LEAD2S 

CALL 


TOUT 

;output a null 

5C3E 

OD 


DCR 


C 

; DECREMENT COUNT 

5C3F 

C23B5C 


JNZ 


LEADS 

iNEXT NULL 

5C42 

C9 


RET 






; SUBROUTINE 

TO 

INPUT A 

BYTE FROM TAPE 



; AND ADD TO 

CHECKSUM 


5C43 

DB12 

TIN: 

IN 


TAPES 

; CHECK STATUS 

SC 4 5 

E60 1 


ANI 


ACINM 

; TAPE-INPUT MASK 




I F 


JMPZ 

i LOO P ON ZERO 

5C47 

CA435C 


JZ 


TIN 





ELSE 



i LOOP NOT ZEPO 




JNZ 


TIN 

} LOOP IF NOT READY 




ENDI F 




SC 4 A 

DB13 


IN 


TAPED 

i INPUT A BYTE 

SC4C 

F s 


PUSH 


PSW 


5C4D 

80 


ADD 


B 

;add byte to checksum 

5C4E 

47 


MOV 


B* A 

J SAVE CHECKSUM IN B 

5C4F 

M 


POP 


PSW 


5C50 

C9 


RET 






; OUTPUT A BYTE 

TO TAPE 

AND ADD TO CHECKSUM 

5C51 

F 5 

TO UTs 

PUSH 


PSW 


5C52 

80 


ADD 


B 

lADD TO CHECKSUM 

5C53 

47 


MOV 


B* A 

;SAVE IT IN B 

5C54 

DB12 

TOUTls 

IN 


TAPES 

;CHECK STATUS 

5C56 

E602 


ANI 


ACOM 

; TAPE-OUTPUT MASK 




I F 


JMPZ 

;loop on zero 

5C58 

CA545C 


JZ 


TO UT1 





ELSE 



;loop not zero 




JNZ 


TOUT1 

; LOOP I F NOT READY 




ENDI F 




5C5E 

FI 


POP 


PSW 


5C5C 

D313 


OUT 


TAPED 

;OUTPUT A BYTE 

5C5E 

C9 


RET 






; PRINT 

THE H/L 

REGISTER PAIR IN HEX 

5C5F 

4C 

OUTHL: 

MOV 


C*H 

; FETCH H 

SC 60 

CD645C 


CALL 


OUTHtX 

;PRINT IT 

5C63 

4D 


MOV 


C*L 

1 FETCH L* PRINT IT 



; j ; j ;;;;;;; i ;;;;;;;;;;;;;;;j ; i;;;;;;;;;;;;;;;;; 



; subroutine 

TO 

CONVERT 

A BINARY NUMBER IN C 



s TO two ascii hex characters* and print them 

5C64 

79 

0 UTHLXs 

MOV 


A* C 


5C65 

IF 


RAR 



;ROTATE UPPER 

SC 66 

1 F 


RAR 




5C67 

IF 


RAR 



I CHARACTER 

SC 68 

IF 


RAR 



i TO LOWER 

SC 69 

CD6D5C 


CALL 


HEX 1 

; OUTPUT UPPER CHARACTER 

5C6C 

79 


MOV 


A* C 

iOUTPUT LOWER CHARACTER 



i SUBROUTINE 

TO 

OUTPUT A HEX CHARACTER 



; FROM 

THE LOWER FOUR BITS 

5C6D 

E60F 

HEX 1 s 

ANI 


OFH 

I MASK UPPER 4 BITS 

5C6F 

C 690 


ADI 


9 OH 
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5C71 

27 


DAA 


I INTEL DAA TRICK 

5C72 

CE40 


ACI 


40H 

5C74 

27 


DAA 


JONCE AGAIN 

5C75 

C35B59 


JMP 


OUTT 



i SUBROUTINE 

TO 

CONVERT TWO KEYBOARD 



J HEX CHARACTERS T0 3NE BINARY BYTE IN B 

5C78 

CD8 65C 

RDHEXi 

CALL 


HEX2 JINPUT UPPER CHARACTER 

5C7B 

07 

RDHX2* 

RLC 


I ROTATE TO 

5C7C 

07 


RLC 



5C7D 

07 


RLC 


iUPPER HALF 

5C7E 

07 


RLC 



5C7F 

47 


MOV 


b,a ;save it in b 

5C80 

CD8 65C 


CALL 


HEX2 ;INPUT LOVER CHARACTER 

5C83 

80 


ADD 


B /COMBINE BOTH PARTS 

5C84 

47 


MOV 


B' A ; SAVE BOTH IN B 

5C8 5 

C9 


RET 



5C8 6 

CD2C59 

HEX2i 

CALL 


READ /INPUT FROM KEYbidAfiD 

5C89 

D630 

HEX22J 

SUI 


*0* / SUBTRACT ASCII BIAS 

5C8B 

DA8D59 


JC 


ERROR ; ERROR/ LESS THAN *0' 

5C8E 

F El 7 


CPI 


23 

5C90 

D28D59 


JNC 


ERROR / ERROR, GREATER THAN ’F' 

5C9 3 

F EOA 


CPI 


10 

5C9 5 

D8 


RC 


/ A NUMBER 0-9 

509 6 

D60 7 


SUI 


7 

5098 

FEOA 


CPI 


10 

5C9A 

DA8D59 


JC 


ERROR / ERROR* BETWEEN 9-A 

5C9D 

09 


PET 


/ A CHAPACTEP A-F 



i SUBROUTINE 

TO 

CHECK HEX/OCTAL FLAG AND JUMP 



; TO PROPER INPUT ROUTINE 

509 E 

3A0A5D 

INHL: 

L DA 


HEXFL /FETCH HEX/OCTAL FLAG 

5CAI 

B7 


ORA 


A /CHECK FOR ZERO 

5CA2 

C2B25C 


JNZ 


RDHLO /OCTAL INPUT 



; SUBROUTINE 

TO 

INPUT H,L FROM KEYBOARD (HEX FORMAT) 

5CA5 

CD785C 

RLADHL: 

CALL 


F.DHEX /READ HIGH BYTE 

5CA8 

60 

P.HL2: 

MOV 


H* B /PUT IT IN H 

5CA9 

CD785C 


CALL 


RDHEX /INPUT LOW BYTE 

5CAC 

68 

RDHL2: 

MO V 


Lt B /PUT IT IN L 

SCAD 

3E3A 

COLON: 

M VI 


A* *« ' /OUTPUT A COLON TO 

5CAF 

C35B59 


JMP 


OUTT / PRINTER 



; SUBROUTINE 

TO 

INPUT H/L FROM KEYBOARD (OCTAL) 

5CB2 

CDD8 5C 

RDHLO: 

CALL 


RD0CT /INPUT HIGH HALF OF ADDRESS 

5CB5 

60 

P.HL0 2: 

MOV 


H* B /PUT INTO H 

5CB6 

CDD8SC 


CALL 


PD0CT /INPUT LOW HALF OF ADDRESS 

5CE9 

C3AC5C 


JMP 


P.DHL2 /CONTINUE IN HEX ROUTINE 



; SUBROUTINE 

TO 

PRINT THE H/L PECISTEF PAIR IN OCTAL 

5CBC 

40 

0 UTHLO: 

MO V 


C,H / F ETCit n 

5CI3D 

C DC 1 50 


Call 


OUTOCT /PRINT IT 

5CC0 

4D 


mo V 


£•»L / FETCH L 



;;;;;;; 

a an 

///////////j///////////////;/////;;///; 



; SUBROUTINE 

TO 

CONVERT A BINAPY NIMEFR IN C 



; TO THREE ASCII 

OCTAL CHARACTERS AND PRINT THEM 

500 1 

79 

OUTOCT: 

MOV 


A, C 

5002 

07 


RLC 


/ROTATE LEFT TWO BITS 

5CC3 

07 


RLC 


/ TO BOTTOM 

5CCA 

L603 


AMI 


3 /SELECT BOTTOM TWO BITS 

sect 

CDD35C 


CALL 


OUT60 /OUTPUT LEFT CHAPACTEP 

5CC9 

79 


MO V 


A» C 

5CCA 

OF 


RPC 


/ ROTATE MIDDLL 

5CCE 

0> 


RRC 


/ BITS TO 

SCCC 

OF 


RRC 


/ BOTTTOM 

5CCD 

CDD150 


CALL 


OUTO /OUTPUT CENTER CHAPACTEP 

5CD0 

79 


MOV 


A»C /OUTPUT RIGHT CHARACTER 





TAPEMON 


97 


5CD1 E60 7 0UT01 AN I 7 ; S EL EC T RIGHT THPEE BITS 

5CD3 CC30 0UT6O: ADI 60C ; ADD ASCII BIAS 

5CD5 C3SB59 JMP 0UTT I PRINT CHARACTER 

; SUBR0VT1NE T0 CONVERT THPEE KEYBOARD ASCII 
; 0CTAL DIGITS T0 0NE BINARY BYTE IN E 

RD0CTI CALL 0CTIN I INPUT FIRST CHARACTER 

R0CT2X CPI 4 ;>4? 

JNC EPR0P ;YES* ERR3R 

ADD A i SHI FT 

ADD A ; T0 THE LEFT 

ADL A ; THREE BITS 

M0V B* A * SAVE FIRST PART IN B 

CALL 3CTIN iINPUT SLC0ND CHARACTER 

0PA B i C0MBIN E WITH FIRST PART 

ADD A i SHI FT 

ADD A ; THREE BITS 

ADD A ; LEFT 

M0v Ej a ; save in b 

CALL 0CTIN ;INPUT THIRD CHARACTER 

0RA E ; C0MBIN E ALL THREE 

MOV B* A J SAVE BYTE IN B 

RET 

; 

5 5UBP0VTINE T0 INPUT AN JCTAL CHARACTER T3 A 
l 

0CTIN: CALL READ t INPUT FR0M KEYB0ARD 

0CTI2I SUI *0' ;SUBTRACT ASCII BIAS 

JC ERR0R * ERRJR* LESS THAN '0* 

CPI 6 5 C0MPARE T0 8 

JNC ERR0P ; ERRJR* GREATER THAN 7 

RET 

; 

I SUBROUTINE TO PRINT AN ASCII MESSAGE POINTED T0 
J BY D* E* ST0PS WHEN A BINARY Z ER0 IS FOUND* 


5D00 

1A 

SENDMx 

LDAX 

D 

t FETCH CHARACTER 

5D0 1 

13 


I NX 

D 

i INCREMENT P0INTER 

5 DO 2 

B7 


0RA 

A 

IIS CHAR A BINARY Z ER0? 

5D03 

C8 


RZ 


i RETURN IF IT IS 

5 DO 4 

CD5B59 


CALL 

0 UTT 

;0THERVISE PRINT IT 

5D07 

C3005D 


JMP 

SEN DM 

INEXT CHARACTER 

5D0A 

00 

HEX FLi 

DB 

0 

JHEX/3CTAL M0DE FLAG* 0 - HEX 

5 DOB 

00 

SFLAGl 

DB 

0 

I INITIALIZATION FLAG 

5D0C 


TASK i 

DS 

1 

; SAVE TASK HERE 

5DOD 

0000 

3 FSETx 

DV 

0 

iJFFSET VECT0R F0R L0AD 

SDOF 

FF 

RECLNx 

DB 

RLEN 

I REC0RD LENGTH (L0W BYTE) 

5D10 

00 

PECL2X 

DB 

0 

;RLC0RD LENGTH CHI GH BYTE) 

SDII 

00 

RECAx 

DB 

0 

l RECJRD-LENGTH C0UNT (INPUT) 

EDI 2 

00 

RECIt 

DB 

0 

; INPUT PEC-LENGTH C0UNT (HIGH) 

5D13 

00 

LFLAGX 

DB 

0 

ILJAD-ERRJR FLAG 

5D14 

01 

NNULx 

DB 

1 

I NUMBER 0F WILLS 0N LEADER 

SDI 5 

48 4 558204FMESGI 

DB 

’HEX 0R 

JCTAL INPUT? ’*0 

SD2A 

20484 5 580 ONES 11 

DB 

* HEX '• 1 

0 

5D2F 

204F 435441M ES2t 

DB 

’ JCTAL 

S 0 

SD36 

20494E50 55M LS3J 

DB 

• INPUT 

• 

5D3C 

0D0A02Q202 

DB 

CR*LF* 2* 2* 2 

5D41 

5245434FS2M ES4: 

DB 

•RLC0RD 

LENGTH '* 0 

5D4F 

3F2000 


DB 

•? '• 0 


5D52 

203235350OMESPi 

DB 

’ 255’# 

0 

SD57 

2020574841MESVI 

DB 

• WHAT? 't 0 J fcPPiJP MESSAGE 

5D5F 

4D454C4F 

52MESMX 

LB 

'MEM0RY 

ERRJP AT '*0 

5D70 

20204C45 

41M ESN: 

DB 

' LEADER LENGTH? ** 0 

TBS 2 

434845434BMESCX 

DB 

•CHECKSUM ERR0R AT '* 0 

5D9 5 

S3 544 1 5254MES Ex 

DB 

'STARTS 

AT '*0 

5 DAO 

S7524F4E47MESFX 

DB 

' VR0NG 

FILE NAME* TRYt '* 0 

5DE7 


FBUF: 

DS 

9 

; FILE-NAME BUFFER 

5DC0 


lBUFx 

D5 

BUFL 

;INPUT BUFFER 

SDD2 



DS 

24 

l SPACE F0R STACK 

5DEA 

* 

STACK 

EQU 

S 

;T0P 0F STACK 

5DEA 



END 




5CD8 CDF25C 
5CDB FE04 
5CDD D28D59 
5CEO 87 
5CE1 87 
5CE2 87 
5CE3 47 
5CE4 CDF25C 
5CE7 BO 
5CE8 87 
5CE9 8 7 
5CEA 87 
ECEB 47 
5CEC CDF25C 
5CEF BO 
5CF0 47 
5CFI C9 


5CF2 CD2C59 
5CF5 D630 
5CF7 DA8D59 
5CFA FE08 
5CFC D28D59 
5CFF C9 
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CP/ .1 

MACR0 , 

ASSEM 2-0 

#019 

BINARY TAPE 

M0NIT0R 


0001 

ACINM 

0002 

AC0M 

0008 

BACKUP 

5C31 

BELL 

59 67 

BLANK 

0012 

BUFL 

5A90 

CEND 

5C23 

CLD2 

5C22 

CL0ADR 

5CAD 

C0L0N 

000 D 

CP 

59 4A 

CRLF 

5BD8 

CSERR 

007F 

DEL 

5BE1 

DIN 

5A68 

D0UB 

5A7D 

D0UBF 

00 74 

E0FC 

00 78 

E0F 

598 D 

EP.P0R 

5BEF 

EXEC 

5CtC 

EX EC 2 

SCO 7 

EX EC 3 

0000 

FALSE 

5DB7 

FBUF 

59 7E 

FNERR 

58 L3 

G02 

593 F 

G0 

5C6D 

H EX l 

5C89 

HLX22 

5C8 6 

HEX2 

5D0A 

HEXFL 

5DC0 

I BUF 

5C9E 

I NHL 

58 2 6 

INI TO 

58 2 E 

INI T 1 

5834 

INIT3 

5845 

INITS 

588B 

INI T 6 

58 7F 

INI TH 

0001 

INMASK 

FFFF 

JMPZ 

58E6 

JPCHL 

5C3B 

LEAD2 

EC 3 6 

LEADR 

000A 

LF 

5D1 3 

LFLAC 

0077 

LH LAD 

59 4 F 

LINE 

59 6C 

MERR0P. 

5D2A 

MLS 1 

5D2F 

MLS2 

5D3 6 

MES3 

5D41 

MES4 

5D82 

MESC 

5D9 5 

MESE 

5 DAO 

MESF 

5D1 5 

MESC 

5D5F 

rtESM 

5D70 

M ESN 

5D52 

MESP 

5D57 

MLSV 

58 L7 

M0DE 

58 F 7 

M0DE1 

58 FD 

M0DE2 

5A0L 

NEV2 

5D14 

NNUL 

5CF5 

0CTI2 

5CF2 

0CTIN 

5AEA 

0 F F 1 

5AFB 

0 FF2 

5ADD 

0FF3 

5AD7 

0FF4 

5AE0 

0FF5 

5ABB 

0FFST 

5D0D 

0FSET 

5CD3 

0UT6O 

5C64 

0UTHEX 

5C5F 

0UTHL 

5CBC 

0 UTHL0 

0002 

0UTMSK 

5CDI 

0UT0 

5CC 1 

0UT0CT 

59 5B 

0 UTT 

58 64 

RDCR 

5C78 

RDHEX 

5CAC 

RDHL2 

5CB2 

RDHL0 

5C7B 

RDHX2 

5CD8 

RD0CT 

592C 

READ 

5CA5 

REA DHL 

EDI 1 

RECA 

5D12 

RECI 

5D10 

RECL2 

5D0F 

RECLN 

589 3 

RESTRT 

5A9D 

RFILE 

003C 

RHLAD 

5CA8 

RHL2 

5CB5 

RHL0 2 

OOFF 

RLEN 

5CDB 

R0CT2 

0055 

SBYTE 

EDOO 

SEN DM 

590C 

SETN 

59 1 i 

SETN 2 

59 22 

S ETN 3 

EDOB 

SFLAG 

5BB1 

SKIP 

003C 

SN UL 

5DEA 

STACK 

E800 

START 

0013 

TAPED 

0012 

TAPES 

5D0C 

TASK 

E9F7 

TDO 

5A21 

TD1 

5A45 

TD2 

5A18 

TD3 

5A4E 

TD4 

5A3E 

TD5 

59 bl 

TDMP3 

59 E5 

TDMP4 

59 D7 

TDMP5 

59C7 

TDMP6 

59 C9 

TDMP7 

59 CD 

TDMP8 

599 D 

TDUMP 

59 6F 

TERR 2 

59 72 

TLRR3 

5C43 

TIN 

EB1E 

TINN 

5B6B 

TLO 

5BA5 

TL 1 

5B9 4 

TL2 

5BD5 

TL 3 

5BLB 

TL4 

5BCE 

TL 5 

5B07 

TLD1 

EB3B 

TLD2 

5B57 

TL D3 

5B61 

TLD4 

5&18 

TLD5 

5AFF 

TL0AD 

5B8 2 

TL S 

5B6B 

TLS2 

5C51 

T0UT 

5C54 
59 5 C 

T0UT1 

VAIT0 

FFFF 

TRUE 

001 1 

TYDATA 

0010 

TYSTAT 



Chapter 5 


Complete Data Base 
Management System 

By Peter Reece 


INTRODUCTION 

One of the most common uses of a computer is the manipulation of 
large amounts of data in a utilitarian task-determined manner. That is, 
by selective manipulation or scanning of knowledge bases, the com¬ 
puter can yield rapid summary information which is representative of 
the complete data base. This manipulation, commonly known as data 
base management, is unfortunately usually relegated to the large 
computer only. The small system user who wishes to organize office 
inventory, book lists, mailing labels, and the like, is usually left out in 
the cold. 

The IDMAS (Interactive Data Base Manipulator And Summarizer) 
system is a remedy to the problems of the small user who wishes 
large system features. IDMAS allows the user to selectively scan, 
summarize, total, count, change, enter, delete, and encode data from 
a data base without any knowledge of the internal workings of the 
computer or program. Commands are interpreted through an English 
language parser which can be modified or augmented very easily to 
enable the user to utilize the English language subset he prefers. 
There may be as many data bases on the system as the user’s facility 
allows. In addition, while the program is included here in direct ac¬ 
cess disk mode (available in most micro-floppy software) modification 
to a sequential access file structure is straightforward. 

IDMAS Is written in PDP-10 BASIC—a BASIC dialect which is 
widely accepted (see IDMAS listing). If the error message and ASCII 
code in the program is minimized for a given application, the entire 
source will fit into about 12K of core on the average small computer. 
Further, since the various commands are modular, they may be re¬ 
moved at will if not required in a given application, in order to drain 
core even less. 
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The code is The data portion 

stored in the is stored in file #2 



Figure 1. A small annotated sample form from an assembly line 
data base. 


FILE STRUCTURE 

There are two data files for every data base used by I DMAS. The 
first is a small file containing the codes or “names” assigned by the 
user to the various items in his data base. The second file contains 
the actual data which corresponds to these names. This is the larger 
of the two files. For example, suppose that the user is concerned with 
the length of time it takes to assemble some automotive components 
and wishes to store this information in a data base. As Figure 1 
shows, the time, say 30 minutes, would be stored as data in file two 
while the name of that data—asmb-time—would be stored in file one. 

Each item of data and its name are stored in a single record in their 
respective files. These records are always the same distance from the 
start of this block of data. Thus, in our example, asmb-time is stored 
at the seventh record of the block, and “30” is stored at the seventh 
record of the block of file two. 

A block consists of all records which correspond to a given item in 
the data which is of particular importance. This is the “key” item, and 
is usually the main item of interest in the data base. If we think of a 
data base consisting of mailing lists, the key item might be postal 
zone since it is the most general designation. The next most impor¬ 
tant item might be state, then county, city, street, and so on. The key 
item would be the first item in the hierarchy. All records following the 
key will in some way be tied to the key. (Note that I DMAS does not re¬ 
quire the key item be the main item in a block, but from a user stand¬ 
point, and simply by convention, one item is usually designated as the 
key.) 

A “form” consists of the key plus its related records. There may be 
one and only one code form per data base in I DMAS. This is because 
all data in file two is assigned names through the code form of file 
one. More code forms would lead to confusion, and the program 
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automatically prevents the occurrence of two code forms. The number 
of different codes per data base, however, is unlimited. A “form,” then 
relates to the total structure enclosed in the box in Figure 1, while a 
“block” refers to the physical grouping of the records in the data file. 
(That is, “block” takes on the common meaning of data block on a 
disk or tape file.) The user may choose the length of each record 
within a block by adjusting the parameter “w2.” Hence, if w2 = 80, 
each record in file two, the data file, will be 80 characters in length. 
(Blanks are added if all 80 are not used.) 

In performing a search, the program computes the length of a form 
from the number of names in the list of codes in file one and adds to 
this the distance of the user selected record from the key item. For ex¬ 
ample, to search the data base for all assembly times, as in Figure 1, 
the program would read records 7,16,25, etc. In this way, only records 
relevant to the search are read, thereby saving considerable read 
time. 



Figure 2. The initializing loop of the program (numbers in single 
brackets indicate line numbers in the program). 
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THE SEARCH 

The actual mechanics of this search is illustrated in flow form in 
Figure 3. After deciding that a search has been requested (see Figure 
2) the program reads the code table to compute the validity of the 
names requested by the user input string. Such an input string is il¬ 
lustrated in the example in the first three lines of Figure 6. 

Once it has been determined that the input string contains valid re¬ 
quests, the search is begun. Each search item of the input string is 
compared to the information residing in the appropriate record as 
computed by the method already outlined. For example, as illustrated 
in Figure 6, three records would be read per form, and the information 
in the seventh record, for example, would be checked to see if it is 
greater than fifteen. Totals, detailed counts, etc. (see command list 
outlined below) would be performed once it had been determined that 
all of the requested information in this form had matched the user’s 
input specifications (e.g., that there was not a cost of 10 in the form of 
the example in Figure 6). 

In this manner, the search would continue until each form in the 
data file had been read. A summary according to the user’s request 
and previous commands would then be printed, and the program 
would await the next command. 

THE PARSER 

IDMAS contains a table driven parser which is capable of encoding 
English language user input into a form usable by the rest of the pro¬ 
gram. The table consists of verbs and verb phrases, as well as “noise 
words”—articles and adjectives which are used in English but are of 
no use in the search. First the parser scans the input string searching 
for a match between elements in the string and the table. When such 
a match is found, the matched characters in the string are replaced by 
the appropriate verb code from the table. For example, in line 510 of 
the program, it can be seen that the phrase “is not” is replaced by the 
code “.not.”. That is, the table is composed of pairs—the first word in 
the pair is the match item, the second is the replacement item. If the 
replacement item is a “9”, the parser automatically replaces the 
match item in the input string with blanks. 

Note that the table may contain any verbs or phrases which the 
user deems appropriate to his task. Hence, the input string has con¬ 
siderable flexibility. The table may also be as long or short as the user 
wishes. 

The parser’s next step is to remove the blanks from the input string. 
At this point, the input string will consist only of subjects, verbs, ob¬ 
jects, and connectors. For example, if the input string is: 

FIND AN ANSMB-TIME WHICH IS MORE THAN 15*t AND 
WHOSE TYPE IS NOT A CARRIAGE AND WHICH SHOULD 
HAVE A COST OF 100. 

then at this point in the parsing procedure, the input string would ap¬ 
pear as: 
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Figure 3. The search loop. 
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Figure 4. The ‘change’ command. 


ASMB-TIME.GT.15*tANDTYPE.NOT.CARRIAGEAND 
COST.IS.100 

The parser now creates a number of matrices which categorize the in¬ 
formation in the above string. First the matrix q$(k) is created, where 
each “k” contains one of the sentences in the input string. The matrix 
ql(k) is then created and consists of numbers which represent the 
verbs of the input string. The objects of each sentence—that is, the 
sought items in the data—are contained in the matrix q1$(k). Finally, 








Figure 5. Flow of the parser. 
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FIND AN ASMB-TIME WHICH IS MORE THAN 15*t AND 
WHOSE TYPE IS NOT A CARRIAGE AND WHICH 
SHOULD HAVE A COST OF 100. 


formk 


drive-shaft 

c4-6a 


1 

I reiect 

9 

t (bad asmb-time) 

' (bad carriage type) 

special 

none 



form k + 1 


form k + m 


action-b 

c3 


2 


5 


custom 

dble/v 



action-b 

c3-a 

1 


5 


custom 

none 



^accept q30t- q3ll) + 20 lasmb timel 


^accept q3(1l - at (east 40 


'The program computes which records are of use and reads only those records 
— thereby speeding search time considerably. 


The minimum output (i.e. il no additional forms where ac¬ 
cepted. and no special program switches where in effect) 
would be: 

I HAVE FOUND 2 ITEMS. 

TOTAL ASMB-TIME = 40. 


Figure 6. Example of a simple search through data. 


q2$(k) is loaded with the subjects of the sentences. To illustrate all of 
this, using the above example, we might have the following: 


ql(k) q1$(k) q2$(k) 

K = 1 3 15 assmb-time 

K = 2 2 carriage type 

K = 3 1 100 cost 


q$(k) 

assmb-time.gt.15 

type.not.carriage 

cost.is.100 
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The final task of the parser is to assign a subject to sentences 
which lack one. This is done by assuming that the subject of the 
previous sentence of the input string also applies to the present 
sentence. If no previous message existed, an error message is 
generated. 

At this time too, the matrix q3(k) is loaded with a one or a zero per k 
according to whether or not a total is desired for objects in q1$(k). For 
example, in the input string illustrated above, q3(1) = 0, q3(2) = 1, 
q3(3) = 1, since a total of assembly times only was requested. 

The general flow of the parser, as well as the program line numbers 
which correspond to the various tasks, is illustrated in Figure 5. 

COMMANDS 

Below is a listing of command words accepted by IDMAS, with a 
description of each. Each command may be abbreviated to the first 
three letters if desired. 

HELP: prints a list of commands. 

DELETE: Deletes a particular form from the data base. Deletions 
are always by key item. For example, using the illustration in Figure 6, 
typing “DELETE ACTION-B’’ would delete form number k+1. To 
delete form K + m, "DELETE ACTION—B” would have to be typed 
again. This is a safety feature in the event that duplicte key items 
exist (it is up to the user whether or not his key items are unique). 

Suppose that form k +1 only had been deleted. The next time the 
“ADD” command was issued by the user (see below) the space left 
empty by form k + 1 would be filled. In this way IDMAS Prevents the 
existence of holes in the data base, minimizing storage cost. 

ADD: To add a form to the data base, the user need type only the 
word “add” plus the name of the key item plus the data for the key 
item. For example, to add the product “mud” to the data base, type 
"ADD PRODUCT MUD”. IDMAS would then prompt the user for the 
rest of the items in the form, e.g. the value of “location”, “cost”, and 
so on. 

A switch exists in the program (see “add” subroutine) which allows 
the user to have multiple key items of identical value should he wish 
to do so. Otherwise the program will automatically produce an error 
message if the user attempts to create forms with non-unique keys. 
This feature therefore allows maximum versatility in the use of non- or 
pure hierarchical data base form structures. 

DONE: This command will terminate the action of any other com¬ 
mand which is waiting for input. For example, if halfway through 
“add”ing a form the user decides that he doesn’t wish to “add” this 
form after all, typing “done” will terminate the add command and 
return the user to his initial state prior to the "add” command. 

CREATE: To create a new data base, simply type “create”. IDMAS 
will then prompt for names of code items and internally assigned files 
one and two for future use by this data base. 
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CODE: This command allows the user to scan raw data as it actu¬ 
ally exists in his data file by naming the specific records he wishes to 
see. For example, if the user wishes to scan the contents of records 
200-204, he need simply type “code”. IDMAS will then prompt for the 
first and last record desired (200-204, respectively), then type the con¬ 
tents of these records in their actual stored state. 

RECORD: Typing “record” activates a program switch which 
causes the record numbers of all key items activated during a search 
(assuming the form matches the search specifications) to be printed. 

NORECORD: Disables the “record” switch. 

SHOW: This causes the chosen form to be printed as in Figure 1. 
For example, to print the form whose key item is “mud”, type “SHOW 
PRODUCT MUD”. 

CHANGE: Figure 4 illustrates the flow of the change command. 
Suppose, for example, that the user wished to change the “type” in 
Figure 1 from “carriage” to “unit/a”. To do this he need simply type 
“CHANGE TYPE IN PRODUCT = DRIVE - SHAFT TO UNIT/A”. The pro¬ 
gram would then search the data base for the key item named, then 
perform the change. If the search and change were successful, 
IDMAS would type: 

“TYPE CHANGED FROM CARRIAGE TO UNIT/A in PROD¬ 
UCT DRIVE—SHAFT”. 

TOTAL: This enables the facility whereby user designated numeric 
items may be summed together during a search (assuming the condi¬ 
tions of a search are met). The user specifies which items he wishes 
IDMAS to sum by adding “*t” following the object(s) of a sentence or 
sentences. Figure 6 illustrates an example of the use of the “total” 
command. As many objects as the user wishes may be totaled per in¬ 
put string. 

REASSIGN: This allows the user to end (i.e., close) the data base he 
is presently working with and proceed to a different data base. IDMAS 
Prompts the user for the appropriate information. 

COUNT: This command causes the total number of items found dur¬ 
ing a search to be printed, regardless of the status of any other 
commands. 

NOCOUNT: Disables the “count” command. 

DISPLAY: If the user wishes to see the actual values of the items 
which meet the conditions of a search, he must type “display” prior to 
conducting the search. 

NODISPLAY: Cancels the “display” switch. 

WORD: Prints the first word of the word pairs in the English transla¬ 
tion table used by the parser. In other words, this command lists the 
words and phrases which are accepted by the parser. 

LENGTH: This command causes the total number of records in the 
data file of the active data base to be printed. 



Complete Data Base Management System 


109 


SPECIAL: The “special” command allows the user to call a program 
which he has written as though it were a subroutine of the IDMAS 
Program. 

Typing “special” causes the program to print a description of the 
use of the special command. Typing “special progx” causes IDMAS to 
execute the user program “progx" as a subroutine. 

FIND: The general format of the command to enable a data base 
search is the word “find”, “suggest”, “can”, or “match” followed by 
sentences joined by the Boolian connective “and”. 

A sample format might appear as follows: 

FIND subjectl verb objectl AND article subject2 verb 
phrase object 2. Or, using the form of Figure 1: FIND type 
is carriage AND a cost which isn’t 120. 

Searches are performed, as explained when the parser was discussed 
above, by treating all the words between the “ands” as separate 
sentences. A search is successful if and only if a given form meets the 
conditions specified by each sentence in the input string. In other 
words, the "AND” is a logical, or Boolian “and”. 

All searches will print as a minimum the total number of forms that 
met all of the conditions of the search, if other switches have not been 
set. 

CONCLUSION 

The appendix gives several examples of the use of IDMAS with a 
very simple data base. It is hoped that by adapting IDMAS to your 
system, and taking advantage of its versatility and flexibility you will 
find that the task of data manipulation becomes easier, more useful 
and enjoyable. 

PROGRAM LISTING 

10 REN **#:M***#***#*#####*#*****************##*#*#**#*##**#*#* 


12 REN * * 
14 REN * HINAS J A l* AT A RASE HANAGENENT SYSTEH * 
16 REN * * 
40 REN * BY PETER REECE * 
42 REN * * 


60 REN ******************************************************** 

70 BIN U$<20>rQl<20> »Q1$<20) 

80 DIN 02$(20) j>02<20) 

90 DIN 03<20) 

110 GOTO 5300 
120 REN 

130 REN **** 'W2' IS THE NUNBER OF C0L.UNNS ALLOWED 
FOR A SEARCH ITEN **** 

140 W2--20 
150 PRINT" " 

152 REN REWIND DATA FILES 

160 RESTORE II 

170 RESTORE J2 

180 PRINT •READY: "i 

182 REN READ IN A CONNAND 

190 INPUT C* 

200 IF C* ~ "END" THEN 3470 

210 N ■= INSTR("HELCQDDISNODENBEXIRAWRECNORFIN 
COUNOC rOTNOTSPE"» LFFf*(C$ 1 3 > ) 

220 IF N •= 0 THEN 250 
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230 N * INT(N/3) +1 

240 ON N THEN 2950,3480,4250,4280>3080,3080,320,5070,5100, 
350» 4660,4690 ,5280 ,320 *4710 

250 N * INSTR("MATMAKSUGIS CANCREADDCHAUPDSHOWORL ENASS", 
LEFT*<C*,3)) 

260 IF N * 0 THEN 290 

262 REM CHOOSE A SUBSECTION, THEN GO THERE 
270 N * INT<N/3> + 1 

280 ON N THEN 350»350,350,350,350,2730,3090,3670 t 3670, 
4300,5160,5120,9000 
290 GOSUB 3440 

300 PRINT "*** I DO NOT RECOGNISE YOUR COMMAND ***" 

310 GOTO 150 
320 GOSUB 3440 

322 REM REACH HERE IF NEW COMMANDS ARE BEING DEBUGGED 
330 PRINT "COMMAND NOT YET IMPLIMENT FD♦" 

340 GOTO 150 
350 REM 

360 REM ************** FIND COMMAND *************** 

370 REM FIRST FORMALISE VERBS AND ELIMINATE NOISE WORDS 
380 DATA "IS IT POSSIBLE TO HAVE","9" 

390 DATA "IS THERE","9","CAN THERE","9" 

400 DATA "FIND","9 *,*MAKE","9",■MATCH","9","IS IT POSSIBf F", B 
410 DATA "CAN"»"9",,"9" 

420 DATA "AT",".AND*" 

430 DATA "WHO'S", “ ,IS*","WHOSE","9" 

440 DATA "AND" "WAS NOT", ".NOT." 

450 DATA "SHOULD HAVE HADIS."»*SHOULD HAVE",".IS." 

460 DATA "OF","* IS.","HAD",*.IS.","HAS",*.IS.*,"HAVE",".IS,“ 
470 DATA "FOR","♦IS**,"WAS",".IS.","WILL BE".“.IS.", 

“SHOULD BE",".IS," 

480 DATA " IF ","9"," WHICH ","9■," THAT ",*?■,■ WHO *,"9"," THE “,"9" 
490 DATA "IS GREATER THAN"?".GT|.•,"IS LESS THAN",“♦IT." 

500 DATA "A","9","AN","9","IN","9","ON*,"9" 

510 p^TA "ARE",".IS,","IS NOT",".NOT.","ARE NOT",".NOT." 

520 DATA “WITH" , "AND" , "<" , " . IT . ■ , “.>* , " .GT. " , " LSN T " , ’ .NOT. “ 
530 DATA " WASN ' T * , ‘ , NOT , " , " HAVN NOT, " , "SHOtJLDN ’ T" ? " , Nu t , 

540 DATA "IS","*IS*","8","ANDAND " 

550 DATA "WITH*,“.AND.","TO","9" 

560 DATA "SHOULD","9","BE",“.IS.*,"YET",*9", 

“IS MORE THAN","«GT." 

570 DATA "999","9" 

580 REM ********* PARSER BEGINS HERE ********** 

590 C7 a 0 

600 RESTORE 

610 N =s INSTR ( C* , * ? " ) 

620 IF N = 0 THEN 640 
630 C7 = 444 
640 READ A $,B $ 

650 IF A* -- " 999" THEN 810 
660 N = INSTR<C$,A*) 

670 IF N * 0 THEN 640 
680 L * LEN(A*) 

690 N1 = N+l 

700 IF MID*<C*,Nl,i> “ " " THEN 730 
710 N « INSTR< N1,C*,A*) 

720 GOTO 670 

730 IF N - 1 > 1 THEN 760 
740 C$~MID$<C$,1+2) 

750 GOTO 660 

760 IF ft* ~ "9" THEN 790 

770 C* : -MID* ( C*, 1, N-1 ) + B* +MID* (C* , N+l ) 

780 GOTO 660 

790 C* MID* ( C*, 1, N--1) F MID*(C*,N+1) 

800 GOTO 660 
810 REM 

820 REM NO ISOLATE IHt INDIVIDUAL SENTENCES INTO U*(*) 

83 V 1 >= 0 
840 I » I FI 
850 K* a -e- 
860 L - LEN<K$) 

870 N « INSTR < C* ,K*) 

880 IF N a o THEN 920 
890 Q*<I) - MID*(C*,1,N~1) 

900 C* a MID*(C*»N+1> 
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910 GOTO 840 

920 q * (:i: > ~ c$ 

930 REM G>*<#) NOW CONTAINS THE SENJANCES 10 BE 'ANBED 
940 REM NOW ELIMINATE ALL BLANKS FROM THE SENTENCE STRINGS* 
950 FOR K “ 1 TO I 
960 C* - 0*<K> 

970 GOSUB 1290 
980 0*00 « c* 

990 NEXT K 

1000 REM NOW ISOLATE THE VERBS 

.1.010 MAT 01 * ZER 

1020 FOR K ~ 1 TO I 

1030 N » INSTR(0$(K >»*•IS•* > 

1040 IF N - 0 THEN 1080 
1050 0.1 (K) « 1 

1060 01*<K> * MID*(G*(K)rN+4) 

1070 GOTO 1240 

1080 N « i NSTR < 0* (K) t " ♦ NOT. “) 

1090 IF N * o THEN 1130 
1100 Q1(K) * 2 

1110 Q1*(K) MID*<G*<K> »N+5) 

1120 GOTO 1240 

1130 N a INSTR< U$ < K > » *.GT.‘) 

1140 IF N a o THEN 1170 

1150 G1CK) » 3 

1160 GOTO 1060 

1170 N a INSTR(0$(K) r "»IT♦*) 

1180 IF N = o THEN 1210 
1190 01(K) a 4 
1200 GOTO 1060 
1210 GOSUB 3440 

1220 PRINT"** I BO NOT RECOGNIZE THE VERB IN 
Q*(K>r"' **" 

1230 GOTO 120 
1.240 NEXT K 
1250 REM 

1.260 REM G$(*) = SENTENCES t Gl<*> = VERB CODES t 
G1 * < * ) = ITEMS SOUGHT 
1270 REM la# OF SENTENCES 
1280 GOTO 1410 

1290 REM ROUTINE TO ELIMINATE BLANKS FROM THE 
ENTER STRING ' C*' 

1.300 LI - 0 
1.31.0 L a LEN(C*> 

.1.320 LI « L..1 + 1 

1.330 IF LI > 1 THEN 1400 

1340 IF MID* ( C* »L„1 f 1) <>" " THEN 1310 

1350 IF LI <> 1 THEN 1380 

1.360 C* « MID*<C*»2) 

1370 GOTO 1310 

1380 C* a MID*<C*p1pL1-1) + MID*<C*pL1+1) 

1390 GOTO 1310 
1400 RETURN 

14.1.0 REM LOAD Q2*<*> WITH SENTENCE SUBJECTS FOR 
FURTHER MESSAGES. 

1.420 REM NOTE THAT IF A SENTENCE LACKS A SUBJECT 
THEN IT IS ASSUMED 

1430 REM THAT THE VERB REFERS TO THE SUBJECT OF THE PRE¬ 
VIOUS SENTENCE. 

1440 FOR K a i JO I 
1450 N a i NSTR< G* < K)r" . ■ ) 

1460 IF N a o THEN 1210 
1.470 IF N > 1 THEN 1510 
1480 GOSUB 3440 

1.490 PRINT"** THERE IS NO SUBJECT IN THE SENTENCE ' " r 
0*<K>*" ' *** 

1500 GOTO 150 

1510 G2f<K> MID* <Q* < K)r1»N-1) 

1520 IF 02* (K) " I HEN 1540 

1.530 Q2* < K ) = 0**(K-1> 

1540 NEXT K 

1550 REM SEARCH SUBJECTS FOR 'TOTAL' COMMANDS 

1560 03 - -1 

1570 C8 0 

1580 FOR K * 1 TO I 
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1390 N = INSTR<Q*(K>»”*T a ) 

1600 Ft N * 0 THEN 1640 

1610 Q2*<K) •= MID?<G2?(K> • 1 ,N-1) 

1620 Q3(K> = 0 
1630 C 8 « 444 
1640 NEXT K 

1630 REM .. PARSER ENDS HERE . 

1660 REM NOW SEARCH A CODE TABLE FOR MATCHES TO THE 
SUBJECTS IN 02?<#> 

1670 REM AND STORE THE RECORD ADDRESSES* 

1680 SET 2*1 
1690 INPUT:2,C? 

1700 W1 a UAL < C?) 

1710 K * 0 

1720 K a K+I 

1730 IF K > I THEN 1890 

1740 N a o 

1750 N a N+l 

1760 IF N > W1 THEN 1840 
1770 IF END t 1 THEN 1840 
1780 SET 1 iN 
1790 input:1»C* 

1800 IF INS fR < 02?(K) t C?) = 0 THEN 1750 

1810 02<K) = N 

1820 T 1 = 0 

1830 GOTO 1720 

1840 GOSUB 3440 

1850 PRINT * ‘ 

1860 PRINT*## '* »Q2?(K), *' IS AN ILLEGAL SUBJECT 
FOR '* fQ$(K> » *' *** 

1870 N1 — 999 

1880 GOTO 1720 

1890 IF N1 a 999 THEN 150 

1900 REM ..*. BEGIN SEARCH ♦**.♦*.*.♦.*.,.. 

1910 REM RECORD #1 OF THE DATA FILE CONTAINS W.1' . THIS IS 
1920 REM A POINTER TO A KEY SEARCH ITEM. THUS, IF THE PRESENT 
1930 REM KEY ITEM IS A RECOR "R'r THE Nth KEY ITEM 
WILL BE AT RECORD 'R + W1#N'. 

1940 T = 0 
1950 R = 0 
1960 SET 111 
1970 INPUT!1,0? 

1980 SET 2:1 

1990 IF END:2 THEN 2350 

2000 input:2,C? 

2010 W1 * UAL <C?> 

2020 R1 = 0 

2030 IF END:2 THEN 2350 
2040 FOR K a i TO I 
2050 R1 a R + 02(K) 

2060 R1 = R1+ 1 
2070 SET 2:R1 
2080 IF END:2 THEN 2350 
2090 input:2,C? 

2100 GOSUB 2520 
2110 NEXT K 

2120 IF T <> I THEN 2320 

2130 T1 a T1 + 1 

2140 REM 'RECORD / IN EFFECT ? 

2150 IF C5 <> 444 THEN 2180 

2160 PRINT*REC*"»RJ 

2170 REM COUNT IN EFFECT ? 

2180 IF C2 a 444 THEN 2230 
2190 IF Cl <> 444 THEN 2320 
2200 SET 2:R+2 
2210 INPUT:2,c? 

2220 PRINT G?? , = SC$f *f 
2230 REM DETAIL IN EFFECT ? 

2240 IF Cl <> 444 THEN 2320 

2250 J = R 

2260 FOR K « 1 TO I 

2270 J1 a j + Q2(K) + 1 

2280 SET 2:J1 

2290 INPUT:2,C? 

2300 PRINT 02?<K>? *=* fC?i* *f 
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2310 NEXT K 
2320 T = 0 
2330 R * R + W1 
2340 GOTO 2030 
2350 PRINT " * 

2360 GOSUB 3440 

2370 IF ri 1 THEN 2410 

2380 IF T1 » 0 THEN 2410 

2390 PRINT“ I HAVE FOUND ONE FORM* 

2400 GOTO 2460 

2410 IF It <> 0 THEN 2450 

2420 IF C' <> 444 THEN 2450 

2430 PRINT■ I HAVE FOUND NO FORMS." 

2440 GOTO 2460 

2450 PRINT * I HAVE FOUND " i T1f•FORMS.* 

2460 REM 'TOTAL' IN EFFECT ? 

2470 IF C8 <> 444 THEN 2510 
2480 FOR K * 1 TO I 

2490 PRINT TOTAL "tQ2*<K)? a = " JQ3<K) 

2500 NEXT K 
2510 GOTO 150 

2520 REM HERE THE ACTUAL COMPARISONS ARE PERFORMED 
2530 REM THE OBJECTS OF THE INPUT SENTENCES <Q1*(*>> ARE 
COMPARED 

2540 REM TO DATA ACCORDING TO THE VERBS IN OK*), 

2550 P ■ T . 

2560 N « INSTR(C$>Q1*(K>) 

2570 ON 01(K) GOTO 2580r2610»2640 t 2670 

2580 IF N <> 0 THEN 2690 

2590 T * I + 1 

2600 GOTO 2690 

2610 IF N <> 0 THEN 2690 

2620 T = "f + 1 

2630 GOTO 2690 

2640 IF C* < G1*<N> THEN 2690 
2650 T = T + 1 
2660 GOTO 2690 

2670 IF C$ > Q1♦<K) THEN 2690 
2680 T “ T + 1 
2690 IF P == T THEN 2720 
2700 IF 03< K) * -1 THEN 2720 
2710 Q3<K> “ VAL(C$) + 03(K) 

2720 RETURN 

2730 REM ***************** CREATE COMMAND **************** 

2740 N = 0 
2750 P » 444 
2760 SCRATCH*2 
2770 SCRATCHJ1 
2780 K ~ 1 
2790 GOSUB 3440 

2800 PRINT"** WHEN YOU ARE FINISHED» TYPE DONE'. **" 

2810 PRINT" " 

2870 N « N+l 
2830 PRINT"ITEM #'5Nf 
2840 IF N O 1 THEN 2860 
2850 PRINT"(KEY) * f 
2860 INPUT C* 

2870 IF C* ; = "DONE" THEN 2910 
2880 SET UN 
2890 PRINT: lrC* 

2900 GOTO 2820 
2910 C* * STR$ < N-l) 

2920 SET 2.1 
2930 PRINT »1rC* 

2940 GOTO 150 

2950 REM ******************* HELP COMMAND **************** 

2960 PRINT " ‘ 

2970 GOSUB 3440 

2980 PRINT"** COMMANDS ARE AS FOLLOWS: **" 

2990 PRINT"FIXED COMMANDS:" 

3000 PRINT"HELP CODE DISPLAY NO DISPLAY END EXIT RAW " 

3010 PRINT"RECORD NORECORD COUNT NOCOUNT TOTAL NOTOTAL " 
3020 PRINT"ADD CREATE CHANGE SHOW WORD LENGTH ASSIGN" 

3030 PRINT"VARIABLE COMMANDS:" 

3040 PRINT"SPECIAL FIND MAKE IS IT POSSIBLE SUGGEST * 
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JIOjO PRINT "IS IT POSSIBLE TO HAVE IS IS POSSIBLE THAI' 

3060 PRINT "MATCH IS THERE; CAN THERE BE* 

3070 GOTO 150 
3080 STOP 

3090 REM a###*****#**#*** ADD COMMAND ******************** 

3100 C*~MID*(C$»4> 

3110 IF C$<>"■THEN 3150 
3120 GOSUB 3-440 

3130 PRINT“ADD WHAT ? (EXAMPLE» ADD M.BROWN)" 

3140 GOTO 150 
3150 SET2J1 
3160 INPUT♦2fC1$ 

3170 W1 : =UAL (Cl$) 

3180 R * 2 

3190 GOTO 3210 

3200 R * R + W.l 

3210 SET 2iR 

3220 IF ENIC 2 THEN 3280 

3230 INPUT J2, Cl* 

3240 IF INSTR(C1*»C*> - 0 THEN 3200 
3250 GOSUB 3440 

3260 PRINT*** '"SCI**"' ALREADY EXISTS* *** 

3270 GOTO 150 
3280 R1 = 0 

3290 IF P <> 444 THEN 3310 

3300 R * 2 

3310 R1 = R1 + l 

3320 SET 1JR1 

3330 IF ENDJ1 THEN 150 

3340 FOR T -- 2 TO W1 + 1 

3350 INPUT:lrC* 

3360 PRINT C*» 

3370 INPUT K$ 

3380 IF K* = "DONE" THEN 150 
3390 SET 2:R+T-2 
3400 PRINT :2>K* 

3410 NEXT T 

3420 P = 0 

3430 GOTO 150 

3440 REM MONKEY MESSAGE 

3450 PRINT"COMPUTER MESSAGE: •} 

3460 RETURN 
3470 STOP 

3480 REM ****************** CODE COMMAND ******************* 

3490 SET 2U 
3500 GOSUB 3440 

3510 PRINT* AT WHAT RECORD NUMBER SHALL I BEGIN "i 
3520 INPUT C$ 

3530 IF C$ ~ "DONE* THEN 150 
3540 A ~ UAL(C$ > 

3550 GOSUB 3440 

3560 PRINT*AT WHAT RECORD ♦ SHALL I END " i 
3570 INPUT C* 

3580 IF C# - 'DONE" THEN 150 
3590 B ■ UAL(C$) 

3600 FOR I - A TO B 
3610 IF END:2 THEN 150 
3620 SET 2:i 
3630 INPUTS2 fC* 

3640 PRINTIf*. " >C$ 

3650 NEXT I 
3660 GOTO 150 

3670 REM ********* CHANGE COMMAND ********* 

3680 GOSUB 1290 
3690 C* * MID*(C$»8> 

3700 IF C* <>*"THEN 3750 

3710 GOSUB 3440 

3720 PRINT"CHANGE WHAT ?“i 

3730 PRINT"(EXAMPLE: CHAGE DIET IN RECIPE * 1 TO NUTRICIOUS)♦" 

3740 GOTO 150 

3750 N = XNSTR<C«»"IN") 

3760 IF NO 0 THEN 3800 
3770 GOSUB 3440 

3780 PRINT"ILLEGAL 'CHANGE' STRUCTURE: "i 
3790 GOTO 3730 
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3800 Q2$(1) * MID*<C*»1»N-1) 

3810 C* * MID* (C* t N+2) 

3820 N * INSTR<C*v'="> 

3830 IF N ■ 0 THEN 3780 
3840 02*(2> * MID*<C*fIfN-l) 

3850 C* « MID*(C* rN+1) 

3860 N ■ INSTR(C*>' TO' ) 

3870 IF N * 0 THEN 3780 
3880 02*<3) * MID*<C*»1»N-l) 

3890 02* < 4 > * MlD*(C*fN+2) 

3900 02*(2) * 02*<3) 

3910 02*<3) * 02*(4) 

3920 20R « 0 
3930 R * R+l 
3940 SET1JR 

3950 IF END J1 THEN 4000 
3960 INPUTSlrC$ 

3970 IF INSTR< C*»02*(1)) * 0 THEN 3930 
3980 N1 « R 
3990 GOTO 4030 
4000 GOSUB 3440 

4010 PRINT *'* f02*(!)»"' IS AN ILLEGAL ITEM FOR THIS 
DATABASE." 

4020 GOTO 150 

4030 REM HADE SET N = POINTER WITHIN A DATA FIELD r 
FIND THAT DATA FIELD 
4040 SET 2J1 
4050 INPUT *2r C* 

4060 U1 ■ UAL < C* ) 

4070 R = 2 
4080 SET2JR 

4090 IF END!2 THEN 4140 
4100 INPUT :2»C$ 

4110 IF INSTR(C* »02*(2)) <> 0 THEN 4170 
4120 R * R + W1 
4130 GOTO 4080 
4140 GOSUB 3440 

4150 PRINT"I CANNOT FIND THE ENTRY'■JQ2*(2 )} 

•' IN THE DATA. 1 
41.60 GOTO 150 
4170 R ~ R + Nl-1 
4180 SET 2:R 
4190 INPUT :2*C* 

4200 SET 2JR 

4210 PRINT ♦ 2 r 02*(3) 

4220 GOSUB 3440 

4230 PRINT"''»C$ »“' CHANGED TO 
02*( 3 ) r “ ' IN * r02*(2) 

4240 GOTO 150 

4250 REM **** DETAIL COMMAND **** 

4260 Cl « 444 
4270 GOTO 150 
4280 Cl * 0 
4290 GOTO 150 

4300 REM ***** SHOW COMMAND ***** 

4310 C4 a 0 

4320 C* a MID*(C* 1 5) 

4330 IF C$ <> "" THEN 4370 
4340 GOSUB 3440 

4350 PRINT * SHOW WHAT ? (EG.J SHOW NAME == J.SMITH)." 

4360 GOTO 150 

4370 N - INSTR<C*f) 

4380 IF N = 0 THEN 4350 
4390 02*<1) * MID*(C* r 1rN-1) 

4400 02*(2) a MID*<C*»N+1) 

4410 SET1S1 
4420 INPUTJ1»C* 

4430 IF INSTR(02*(1)fC*) <> 0 THEN 4470 
4440 GOSUB 3440 

4450 PRINT"'"}02*<l)fIS NOT A KEY ITEM.' 

4460 GOTO 150 
4470 SET2J1 
4480 INPUTJ2»C* 

4490 W1 = UAL < C*) 

4500 R a 2-W1 
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4510 R * R + Wi 
4520 SET 2JR 

4530 IF ENDJ 2 THEN 4150 
4540 INPUTJ2» C$ 

4550 IF' INSTR<CS»Q2$<2> ) « 0 THEN 4510 

4560 IF C4 * 444 THEN 4940 

4570 FOR I = 1 TO U1 

4580 SET 1J1 

4590 INPUT J1rC$ 

4600 PRINT I»'. •JC«} , J 
4610 SET2JR + 1-1 
4620 INPUTJ2»C* 

4630 PRINT C* 

4640 NEXT I 
4650 GOTO 150 

4660 REM ****** COUNT COMMAND ***** 

4670 C2 ■ 444 
4680 GOTO 150 
4690 C2 •- 0 
4700 GOTO 150 

4710 REM ****** SPECIAL COMMAND ******** 

4720 C$ * MID$(C*r8> 

4730 IF C$ » " THEN 4760 
4740 CHAIN C$ 

4750 GOTO 150 
4760 GOSUB 3440 
4770 PRINT " * 

4780 PRINT TAB< 5> r"TO USE YOUR OWN COMMANDS» YOU 
MAY TYPE" 

4790 PRINT"'SPECIAL PROGXr WHERE 'PROGX' IS THE NAME 
OF A PROGRAM" 

4800 PRINT"WHICH YOU WISH TO CALL FROM WITHIN THIS 
SYSTEM.’ 

4810 PRINT"THE SECOND LAST LINE OF 'PROGX' MUST BE" 

4820 PRINT"'CHAIN PROGO'. THE 'X' IN 'PROGX'" 

4830 PRINT"MAY BE IN THE RANGE 1-99, i.e. YOU MAY HAVE UP" 
4840 PRINT"TO ONE HUNDRED ROUTINES OF YOUR OWN." 

4850 GOTO 150 

4860 REM *********** DELETE COMMAND *********** 

4870 C* = MID«(C$,8) 

4880 CR = 444 

4890 IF C* <> "" THEN 4370 
4900 04 * 0 
4910 GOSUB 3440 

4920 PRINT "DELETE WHAT ? (e.-f. DELETE NAM = J.SMITH) " 

4930 GOTO 150 
4940 SET 2JR 
4950 INPUTJ2rC$ 

4960 GOSUD 3440 
4970 PRINT"DELETE "rC$ 

4980 INPUT K* 

4990 IF MID$<K$flfl) * *N" THEN 150 
5000 FOR I = 1 TO U1 
5010 SET2J R + 1-1 
5020 PRINTJ 2," " 

5030 NEXT I 
5040 GOSUB 3440 

5050 PRINT"FORM DELETED FOR KEY ITEM r ■?C$ 

5060 GOTO 150 

5070 REM **************** RECORD COMMAND *************** 

5080 C5 * 444 

5090 GOTO 150 

5100 C5 * 0 

5110 GOTO 150 

5120 REM *************** LENGTH COMMAND **************** 
5130 GOSUB 3440 

5140 PRINT"THE FILE CONTAINS ABOUT "*L0F<J2>f" ITEMS.“ 

5150 GOTO 150 

5160 REM ****** WORD COMMAND ****** 

5170 RESTORE 
5180 PRINT 
5190 I =: 0 
5200 READ A*>B$ 

5210 IF A* = "999" THEN 5260 
5220 I a I + 1 
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3230 PRINT A*?“ *?TAB<1*18)? 

3240 IF I > 3 THEN 5180 
5250 GOTO 3200 
5260 PRINT 
3270 GOTO 130 

5280 REM *********** TOTAL COMMAND ********** 

3290 GOSUB 3440 

3300 PRINT" YOU MAY REQUEST TOTALS FOR NUMERIC 
ITEMS ONLY♦ FOR* 

3310 PRINT*EXAMPLE* FIND A COST*? WHICH IS LESS THAN 50* 
5320 PRINT*AND A CALORIE-COUT*T OF MORE THAN TEN AND* 
5330 PRINT*AN AGE OF 15." 

5340 PRINT THIS WOULD PRESENT SUMS OF THE VALUE OF" 

5350 PRINT*'CALORIE-COUNT' AND 'COST'* BUT NOT OF AGE.* 
5360 GOTO 150 

5370 REM *** A USER MAY HAVE UP TO TEN DATA BASES *** 
5380 PRINT"PLEASE TYPE THE NUMBER OF YOUR DATABASE*? 

5390 INPUT N 

5400 IF N < 1 THEN 5380 

5410 IF N > 10 THEN 5380- 

5420 ON N THEN 5430, 5450, 5470, 5490, 5510, 5530, 

3550, 5570,5590,5610 

5430 FILE J1,* CODE1«BAS$20 *,J2» * DATA1.BAS$80 * 

5440 GOTO 5620 

5450 FILE:1,* C0DE2.BAS$20",:2,* DAT A2♦BASiBO * 

5460 GOTO 5620 

5470 FILE♦1,"C0DE3.BAS$20",*2,* DATA3.BAS$80* 

5480 GOTO 5620 

3490 FILE:1,*C0DE4.BAS$20*, 12t *DATA4.BAS$80* 

5300 GOTO 5620 

5510 FILES If“C0DE5.BAS*20*, i2t *DATA5.BAS$80* 

5520 GOTO 5620 

5530 FILE11,*C0DE6.BAS$20*,:2,*DATA6.BAS$80 * 

5540 GOTO 3620 

5550 FILE11»“C0DE7.BAS$20",t2»"DATA7«BAS*80* 

5560 GOTO 5620 

3370 FILE:1,* CODES.BAS$20*,:2,*DATA8.BAS$80 * 

5580 GOTO 5620 

3590 FILEJl,*C0DE9.BAS$20"fJ2,"DATA9.BAS*80 
5600 GOTO 3620 

5610 FILE:If*C0DE10.BAS$20*, 12* "DATA10.BAS$90* 

5620 GOTO 130 

9000 REM *********** REASSIGN COMMAND *********** 

9002 GOTO 110 
9999 END 


APPENDIX: EXAMPLES OF I DM AS USE 


READY? create 

*** WHEN FINISHED, TYPE ‘DONE’ *** 
ITEM #1 (KEY)? product 
ITEM #2? location 
ITEM #3? cost 
ITEM #4? maintenance 
ITEM #5? type 
ITEM #6? life-yrs 
ITEM #7? asmb-tlme 
ITEM #8? distribution? 

ITEM #9? conversion 
ITEM #10? done 

READY? add drive-shaft 
PRODUCT? drive-shaft 
LOCATION? c3-1a 
COST? 120 
MAINTENANCE? 1 
TYPE? carriage 
LIFE-YRS? 20 
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ASMB-TIME? 30 
DISTRIBUTION? general 
CONVERSION? none 

READY? add drive-shaft 
** 'DRIVE-SHAFT' ALREADY EXISTS ** 


READY? add unitl 
PRODUCT? unitl 
LOCATION? la 
COST? 120 
MAINTENANCE? 1 
TYPE? carriage 
LIFE-YRS? 10 
ASMB-TIME? 15 
DISTRIBUTION? general 
CONVERSION? custom 

READY? is there an asmb-time which is less than 30 and 
a location that is in la? 

** I HAVE FOUND ONE FORM ** 

READY? display 

READY? find a cost which is less than 140*t and an asmb-time 
which is greater than 10*t and a location which isn’t 1b. 

PRODUCT= DRIVE-SHAFT COST=120 ASMB-TIME = 30 LOCATION = C3-1A 
PRODUCT^ UNIT1 COST=120 ASMB-TIME=15 LOCATION = 1A 

** I HAVE FOUND 2 FORMS ** 

TOTAL COST = 240 TOTAL ASMB-TIME = 45 


READY? end 



Chapter 6 


The Computation 
of Direction 

By Gene Szymanski 


In the daily pursuit of our affairs, we do not find it necessary to have 
a Knowledge of absolute direction, for we are able to find our way bout 
through a recognition of familiar sights and sounds. Even when it is 
necessary to travel beyond the conventional routes, there are 
available a multitude of guides to help us reach our destination. 

On those rare occasions when we find that we are “lost”, the feel¬ 
ing of disorientation quickly subsides once a familiar landmark 
comes into view, for then we quickly recover our sense of direction. 

For our purposes, then, direction is thought of as it relates to some 
recognized object or prominent feature, such as a structure, highway 
intersection, or the skyline of a city. Sometimes we find it convenient 
to extend the scope of our reference by descriptives, such as “to the 
north, or east,” and so on. 

The surveyor, navigator, and astronomer require a more precise 
definition of direction in their work. They are concerned with the 
measurement of exact positions, often separated by great distances. 
For their purposes, the concept of direction is of fundamental 
importance. 

THE MEASUREMENT OF DIRECTION 

Direction is the angular difference measured in degrees from a 
reference. For most purposes, we are interested in “true direction” 
whose reference is the geograhic north pole. True direction is 
measured as an angle whose initial value is 0 degrees at north and 
which increases in a clockwise direction to 360 degrees. In order to 
measure true direction, then, it is first necessary to accurately deter¬ 
mine the direction of the earth’s geographic poles. 

For centuries, the magnetic compass has served as the principal in¬ 
strument for providing a knowledge of direction. Unfortunately, the . 
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compass indication of true north is subject to considerable error. The 
directive force on the compass needle is the result of two forces, one 
exerted by the earth’s magnetic field and the second exerted by iron 
or steel which may be found in the vicinity of the compass. 

The earth’s magnetic field is irregular; furthermore, the position of 
the magnetic and geographic poles do not coincide. This gives rise to 
error called variation in the direction of north indicated by the com¬ 
pass needle. The amount of variation depends upon location and can 
be found by consulting a map or chart of the locality. A chart of Long 
Island Sound, for example, would show that the variation is 13 
degrees west. This means that the compass needle is deflected 13 
degrees to the west of true north so that a value of 13 degrees must be 
subtracted from the compass reading to obtain the true direction. 

Obviously, it is a simple matter to cope with variation. All that is 
necessary is to determine its value from the chart, then apply it to the 
compass reading by addition or subtraction. 

The second source of compass error, caused by the presence of 
iron and steel near the compass, is far more troublesome. The result 
of this type of error, called "deviation,” must be carefully measured 
for each compass installation before the instrument can be used with 
confidence. Even then, after deviation errors have been measured and 
recorded for reference, they are subject to gradual change as the 
vehicle or ship in which the compass is installed is moved to other 
locations. Obviously, if the compass is to serve as a reliable instru¬ 
ment, its errors must be known under all conditions of use. 

AZIMUTH OBSERVATIONS 

Because of the regularity in which celestial bodies appear to move 
overhead, we are able to observe their positions in the sky and, from 
this, determine direction. In practicing this technique, we are said to 
be performing an “azimuth observation,” following a procedure which 
is used throughout the world to establish direction. 

The azimuth of a celestial body is simply its direction from the 
observer and is measured as a horizontal angle from the north 
clockwise to 360 degrees. In facing the body, we are also facing the 
point on the earth's surface directly beneath the body. This point is 
called the geographic position or “GP” of the celestial object, and, in 
a strict sense, the term "azimuth” refers to the direction of the GP. 

If both the position of the observer and the GP of the celestial body 
are known, the azimuth of the body can be computed. An accurate 
direction is thus established which serves as an absolute reference 
for determining any other direction quickly and simply. Azimuth obser¬ 
vations enable us to survey the wilderness, allign launching pads in 
the desert, and determine the error of the ship’s compass at sea. 

In practice, one sights a celestial body, preferably when it is low in 
the sky, using a suitable pointer. The pointer is then locked into posi¬ 
tion, and the exact time is recorded. A celestial “timetable” or 
almanac is then entered with the time and date of the observation to 
extract the geographic position of the observed object. Combining 
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this with the position of the observation, the azimuth is computed. 
This azimuth is the exact direction in which the locked pointer is 
oriented. The direction of any other object is then found by measuring 
its angular displacement horizontally from the reference pointer. 

METHODS FOR COMPUTING AZIMUTH 

The computation of azimuth requires the application of spherical 
trigonometry. This is because we are dealing with a geometric figure 
lying on the earth’s curved surface (see Figure 1). This figure is a 
triangle formed by connecting the geographic positions of the 
celestial body, the observer, and the north (or south) pole. 

Although the equations for the computation of azimuth are well 
established, the solution is tedious and prone to human error. For this 
reason, many methods have been devised which attempt to ease the 
burden of computation. These range from tables of logarithms to 
volumes of “pre-computed” solutions, to which the user must apply a 
liberal amount of interpolation before arriving at the final result. 

In dealing with logarithmic solutions, for example, it is necessary to 
perform the addition and subtraction of at least a dozen 6-digit 
numbers after they have been extracted from logarithmic tables. In 
addition, the “labels” of various angles must be examined during in¬ 
termediate steps in order to determine how the arithmetic is to 
proceed. 

The solution for azimuth is an ideal application for the small com¬ 
puter, and in this role it replaces pages of mathematical tables. The 
program can be designed to perform a multitude of preliminary 
calculations which are necessary to establish the known parts of the 
spherical triangle. The solution of the trigonometric equations then 
proceeds rapidly. 

The azimuth program shown here is written in MITS 8K BASIC. The 
entering arguments consist of the observer’s latitude and longitude, 
the Greenwich hour angle and declination of the observed celestial 
body. Greenwich hour angle (GHA) and declination (DEC) are the 
astronomical counterparts to longitude and latitude, respectively, and 
define the GP of the celestial body. 

Both GHA and DEC for all the prominent celestial bodies are ob¬ 
tained from the “Nautical Alamanac,” a publication prepared by the 
U.S. Naval Observatory and issued by the Government Printing Office 
and its agents. Because of the earth’s motion, the GP of every 
celestial body is constantly changing so the Nautical Almanac must 
be entered with the exact date and time (to the nearest minute) of the 
observation. 

The azimuth program solves the spherical triangle (Figure 1) for the 
angle AZ which is formed by the great circles connecting the observer, 
the GP, and the nearest geographic pole. Because of the apparent mo¬ 
tion of point GP, this triangle expands, then contracts as the celestial 
body sets in the west, and eventually rises in the east. 

The program first processes longitude and GHA to determine angle 
T. The latitude and declination are then examined to establish two 
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sides of the triangle; the interior angle AZ can then be computed. 

Finally, the program converts AZ to angle ZN, the azimuth. This is of 
great advantage when done by the program since one of four different 
conversion rules must be selected. This is because the triangle may 
be referenced to either the north or south pole, depending upon which 
is nearest to the observer. 

When started, the program prompts the user to enter input data in 
the following format: first degrees, next minutes, then the “label.” 
Degrees are always entered as an integer, while minutes are to be 
entered to the nearest tenth. “Label” refers to the characteristic suffix 
east or west (for longitude) and north or south (for latitude and 
declination); there is no label for Greenwich hour angle, GHA. 

A longitude, for example, whose value is 134 degrees, 15.7 minutes 
west would be input to the program in the following format: 


(degrees) 

134 

(minutes) 

15.7 

(label) 

W 


At its conclusion, the program prints out the value of ZN. This is the 
azimuth, or true direction of the celestial body from the observer, valid 
for the instant of the observation. 

MATHEMATICS USED FOR SOLUTION 

First the input values, specified in degrees and fractional minutes 
of ARC, are converted into a decimal degrees format (fractional 
degrees). 

“Local hour angle” (LHA) is now introduced as a parameter to ex¬ 
pedite the calculation for meridian angle, T. LHA is found by adding 
east logitudes to and subtracting west longitudes from Greenwich 
hour angle, GHA. 

Coefficient M has an absolute value of unity. Its sign is now made 
positive if latitude and declination are both north or both south; other¬ 
wise, the sign of M is to be negative. 

Side C of the spherical triangle (see Figure 1) is computed by the 
following formula, derived from the Law of Cosines: 

SIN C = SIN L*SIN D + M(COS L*COS D*COS T) 

The intermediate value S is not computed as: 

S = (C + L + 90- M*D)/2 

The “haversine” function of angle AZ is computed as follows: 

HAV AZ = SIN(S-L)*S!N(S-C)/(COS C*COS L) 

Interior angle AZ can now be found according to the following 
identity: 

COS AZ = 1-2* HAV AZ 

Finally, the value of the azimuth ZN is determined by noting the 
label specified for latitude and the label of angle T. Four different 
label combinations are possible and angle ZN is derived from angle 
AZ according to the following rule: 
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Label of L 

Label of T 

ZN 

N 

E 

ZN = AZ 

N 

W 

ZN = 360 - AZ 

S 

E 

ZN = 180-AZ 

S 

W 

ZN = 180 + AZ 


Note: Angle T is assigned the label “W” if LHA is less than 180 
degrees; otherwise, the label “E” is assigned to angle T. 


APPLICATIONS 

The technique of celestial observation for azimuth can be employed 
wherever there is a need to establish direction. Some typical ex¬ 
amples are as follows: 

1) Orientation of structures, highways, property lines. 

2) Surveys and construction of maps. 

3) Calibration of the magnetic compass or gyrocompass. 

4) Orientation of solar energy receptors, directional antennas, 
tracking devices, telescopes. 

5) Predicting the position on the horizon at which the sun or any 
other celestial body will appear to rise or set. 

At sea, azimuth observations are performed daily in order to detect 
any changes in magnetic compass deviations and to verify the ac¬ 
curacy of the ship’s gyrocompass. 

Professional compass adjusters, when calibrating a ship’s com¬ 
pass for the first time, also rely on the azimuth technique for a direc¬ 
tional reference. Their approach is to first compute the sun’s azimuth 
for periodic time intervals, and from this draw a curve of azimuth 
values as a function of time. The ship is then placed on various 
headings and the sun’s azimuth, as measured by the compass, is 
noted. By comparing the observed value of the azimuth with the 
precomputed value, the residual deviation error in the compass can be 
quickly determined. 

Surveyors and mapmakers rely on azimuth observations to provide 
them with the geographic orientation vital in their work. Once they 
have obtained directional orientation, a baseline can be established 
whose length and direction are well defined. The baseline may then be 
used as a datum from which all other points of interest can be 
established by triangulation. 

EXAMPLE 

The following example indicates how the azimuth program would 
be applied to a practical situation: 

A directional transmitting antenna is to be oriented such that it 
points exactly towards a receiving antenna located several hundred 
miles distant. Magnetic compass readings cannot be relied upon 
because of the presence of electrical machinery and a large steel 
cyclone fence surrounding the transmitter site. 
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As a first step, the required direction is determined. The transmitter 
and receiver positions are marked on a great circle chart and the line 
connecting them is found to have a direction of 215 degrees. A 
suitable azimuth indicator is now set up next to the transmitting 
antenna. A simple but effective indicator can consist of a flat sheet of 
cardboard placed on a level surface, pierced by a rigid, vertical pin. 

At a convenient hour, when the sun is low in the sky, a mark is made 
on the cardboard to indicate the position of the shadow cast by the 
pin, and the exact time is recorded. 

The Nautical Almanac is now entered with the date and recorded 
time of the observation, and the coordinates of the sun are found to 
be: 

GHA = 81 degrees,-40.2 minutes. 

DEC = 22 degrees, 03.2 minutes, north. 

The chart indicates that the position of the transmitter is: 

Longitude = 20 degrees, 40.2 minutes, west. 

Latitude = 41 degrees, 00.0 minutes, south. 

These values are entered into the computer azimuth program, and 
the resulting print-out indicates the azimuth to be exactly 305.5 
degrees. In other words, this is the direction which the shadow 
described at the time of the observation. 

A line drawn on the cardboard surface from the mark towards the 
position of the vertical pin, therefore, points in the exact direction of 
305.5 degrees. A second line can now be drawn, offset from this 
reference “pointer” by an angle of 90.5 degrees to the left 
(305.5 - 215 = 90.5), to indicate the direction for the antenna. 


PROGRAM LISTING 

5 REM;PROGRAM"A/’IMUTH RV CELESTIAL OBSERVATIONS", 

6 REM•BY GENE SZYMANSKI, JAN 3,1978 

9 CLEAR 100 

10 REM•DATA INPUT MOUULE 
20 PRTNT"ENTER LONGITUDE:" 

22 TNPIJT"DEGREES"! AO ): INPUT"M I NOTES": B (1 ) 

24 INPUT"LABEL<E OR W)":At 

25 PRINT:PR!NT 

30 PRINT-ENTER LATITUDE:" 

32 !NPUT"DFGREES":A (2 ): INPUT"M INU IES" j B (2 ) 

34 INPUfLABELfN OR S)"lB,t 

35 PRINT:PRINT 

40 PR I NP'ENTER DECLINATION:" 

42 INPUT"DEGREES": A (3) : INPUP’M IN JTES" l B (3 ) 

44 INPUP'LABELIN OR S)":CS 

45 PRINT:PRINT 

50 PRINT"ENTER GHA:" 

52 INPUr"DEGRF.ES")A f4) : INP JT"M I NOTES" : B ( 4 ) 

100 REM:CONVERT INPUTS TO DECIMAL DEGREES 
110 FOR 1 = 1T04 

120 nm=Am*8(i)/60 

130 NEXT I 

200 REM:COMPUTE LOCAL HOUR AND MERIDIAN ANGLES £ M. 
210 IF A* = "W"THEN = 
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220 LH=B(4)+B(!1 

230 TF t,H< 1 80 GOTO -250 

240 T=360-LH: TS=I: GOTO 260 

250 T=LH: TS = -1 

260 TF T>0 GOTO 280 

270 T=-l*T:TS=-1*TS 

280 T $="E" 

290 TF TS<0 THEN T*="W" 

291 LET M=-l 

292 TF B5=CS THEM M=1 

300 8EM:SOI.i7E FOR COMPUTED ALTITUDE 
310 K=57.2958 

320 fl=SIM(BT2)/k)*SlN(B<3)/K) 

321 A1=m*C0S<R(2>/K)*COS<B C3 >/k)«C05(T/K):A = A+A1 
330 HC=CATN(A/SQR(1-At2>)>*x 

340 HC=ABS(HC1 

500 REM;COMPUTE INTERIOR ANGLE A 7 
510 S=0.5*(HC+B(2 )+90-m*B (3 )> 

520 HI=STM(TS-Bf2))/k-)*SlN((S-HC)/8) 

530 H2 = H1 / TCOSTHC/K) *C05 <B(2>/81 ) 

540 H3=1-2*H2 

550 H4 = ATMTSQR(1 -H3t2)/H3> 

560 A7=R*H4 

561 TF A7<0 THc.n A7=180*A7 
600 RFM;COMPUTE 7N 

610 LET X*=B5+TS 

620 TF XS="NE"THEN 7M=A7 

630 IF XT="NW" THEN 7N=360-A7 

640 TFXT = ,, SE" THEN 7N=I80-A7 

650 TF XT = "SW" THEN 7N=180+AZ 

651 7N= I N T IZN*10+0.51/10 

652 PRINT:PRINT 

660 PRINT "FN^'lEN:”DEGREES’* 

670 PRINT "DONE" 

680 END 
08 


RUN 

ENTER LONGITUDE: 
DEGREES? 20 
MINUTES? 40.2 
LABEL(E OR Ml? W 


ENTER LATITUDE: 
DEGREES? 41 
MINUTES? 0 
LABEL(N OR SI? S 


ENTER DECLINATION: 
DEGREES? 22 
MINUTES? 3.2 
LABELCN OK SI? N 


ENTER GHA: 
DEGREES? 81 
MINUTES? 40.2 


7N= 305.5 DEGREES 
DONE 



Chapter 7 


Random Files Illustrated 


by Frederick E. La Plante, Jr. 


INTRODUCTION 

In the recent series on General Business Software by Shamburger, I 
seem to detect an apology for not having used a truly random file ap¬ 
proach in this design. This set me to thinking and try as I might, I 
could not recall having seen a single software article in the 
“hobbyist” literature which used random files. Since I had just re¬ 
cently finished a small software package to maintain a program for a 
membership file using random files with BASIC, the thought occurred 
to me that others might be interested in a practical example of the 
utility of such file structures. 

DEFINITION OF FILES 

Before we go any futher, we had better define just what sequential 
and random files are and how they differ. 

A sequential file is typified by a magnetic tape. Typically such a file 
consists of a number of records end-to-end along the tape, usually in 
the order in which they are most frequently needed. When access is 
required to a particular record, the usual procedure is to rewind the 
tape to assure that it is at the start of the file, then read each record in 
turn, performing any necessary processing, and then read the next. If 
the program should need to read only one record, say the recipe for 
rhubarb pie, we must read through all of them until the desired record 
is found. If we wish to insert a new record, say a newly hired employee 
into a file ordered by employee number, and the new record must be 
placed anywhere other than at the end (always, in accordance with 
Murphy) then unless the file is small enough to fit into memory (never, 
same reason) we must copy tape #1 to tape #2, from the start until we 
reach the insertion point, write the new record on tape #2, then con¬ 
tinue with the copy. Now, suppose instead of one new employee, we 
have five scattered at random throughout the existing range of 
employee numbers. We could simply process them one at a time at 
random, each time rewinding the most recent copy, and then copying 
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and inserting as above. This would be slow, and rough on the tape as 
well. So, to do the job right, we first sort the insertions in employee 
number order and then read tape #1 to the point of the first insertion, 
write it, copy until reaching the place for the second, etc., until the up¬ 
dates are made. We then end up with a back-up tape of “yesterday’s” 
file, a new updated file, and if we save it somewhere, a sorted list of 
the updates. The value of this file set will become obvious the first 
time the boss wishes to inspect the file after you have added the new 
employees, and you find the copy didn’t take. 

A random file is typified by a library book shelf where you can 
retrieve any book without disturbing any others on the shelf. Again, in¬ 
dividual records are stored end to end, but the order may not be at all 
obvious if you do not recognize the key (catalog code). This key is 
probably some alphanumeric character sequence which the librarian 
(programmer) found easy to generate for each record and is abso¬ 
lutely unique. It may make no sense at all to anyone else but that 
doesn’t matter. To find any record in the file, you must go to the index 
and look for the record in a sequence of key names (author, title, etc.) 
and get the corresponding record number (catalog code). You then go 
directly to that record and retrieve it. Physical devices providing that 
feature work much like normal computer memory in that you specify 
an address and are presented with data. (In fact, except for speed of 
access, it is frequently possible to treat them that way.) In order to 
write a new record, simply add the new record to the end of the file, 
and place its record number and keyword in the index in its proper 
place. There is no need to copy the file at all, and if any sorting is to be 
done, it will be the index which is usually very small compared to the 
file. Should you wish to modify a record, you simply read the old ver¬ 
sion into memory, change it, and write the new version over the old 
with no copying required. Thus, there is never more than one copy of 
the file and it is always current. 

The accompanying program MARSBASE implements a com¬ 
paratively crude database with 128 bytes allocated to each. Either or 
both of these limits can be increased up to the limits of disc space 
that the user wishes to commit. Since this is a random file, we can do 
directly to any specific member’s record (assuming we know which 
one it is) so response time is not significantly affected by the size of 
the database. A little thought should result in a fairly large number of 
applications for such an approach to data storage. No longer does 
one have to read through most of the entire file of recipes in order to 
look at the one for rhubarb pie (or how about the contest log checking 
for radio amateurs). In fact, random file design allows one to get 
significantly closer to real-time access to a specific item in a 
voluminous data file. 

MARSBASE PROGRAM 

The program described here is written in a rather unusual form of 
BASIC. It is called BASIC-E and was written by Gordon E. Eubanks, Jr., 
of the Naval Post Graduate School. This BASIC runs under the CPM 
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operating system written by Digital Research and takes advantage of 
its rather complete file editing system and I/O package. The particular 
version I used is that distributed by Imsai™ with their floppy disk. 

Those familiar with BASIC will notice several peculiarities about 
the program described here. Perhaps the most obvious are the lack of 
line numbers and the absence of 2-character variable names. Less ob¬ 
vious is the IF-THEN-ELSE statements and the line-continuation 
symbol -/-. In writing MARSBASE it was decided to make liberal use of 
these features to determine if any significant improvements could be 
made in the readability and understandability of this program as com¬ 
pared to the usual BASIC program. In writing the program, I tried to 
follow the structured programming precepts of no “GOTO” 
statements and single entry and exit points from a block of code. I 
was not altogether successful, but still I think the understandability 
has been considerably enhanced. 

One other aspect of BASIC-E has also affected the program and 
that is the fact that BASIC-E is a compiler/interpreter similar in some 
respects to the concepts of TINY BASIC. That is, the code you see 
here is pre-processed by a compiler into an intermediate language 
with all symbols reduced and all remarks, etc. removed. This inter¬ 
mediate language is then interpreted by the run-time software. While 
one has lost the rapid interactive features most beginners seem to 
find appealing, one gains the ability to be somewhat verbose in the 
source code while still retaining most of the advantages of compact 
code for the interpreter. 

PROGRAM FEATURES 

The program breaks down functionally into six major segments: 
The main program, four processing modules, and a set of support sub¬ 
routines. 

The main program defines variables, establishes array space, 
creates the database index, and allows the user to select from the 
functions available. The important thing to notice here is the index, 
for this is the heart of random file access. Whenever some part of the 
program wishes to access a particular member’s data record, a 
search is made of the index to determine the record number and the 
program then asks the operating system for that specific record. The 
method used for searching the index is a simple sequential one of 
comparing each entry in turn. If the database were much larger than it 
is, a faster method of locating the key would be appropriate, but was 
not used in this case since the response time of the disc system 
seems to mask any search time. 

Note that the index is nothing more than an array containing the 
“key” words, in this case the member’s amateur call sign. However, 
the array is organized in exactly the same order as the database so 
that if the desired key is found in the 25th place in the array, then the 
desired record is number 25 in the file. While we are still performing a 
sequential search, we are now doing it in core at the maximum rate of 
the interpreter and also we only search through the keys. While 
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smaller files of 10-15 records would barely show the difference be¬ 
tween normal sequential and random files, the advantages become 
very obvious as the number of records increases and individual record 
size increases. 

The functional modules perform as follows: 

ADD—-Get information from the operator concerning a new member, 
format it and insert it into the database. One search is made to insure 
that a duplicate entry is not being made and another to find the first 
empty record. If no empty record is found, the new record is added to 
the end of the database and a new end-of-file flag is written. When the 
user indicates there are no more additions to be made, he is advised 
of the current size of the database and returned to the main program. 
CHANGE—Get a new item entry from the operator and insert it into 
the proper place in the database for the specified member. After the 
member to be altered is stated, the record is read into the core. The 
operator is asked to specify the item to change and its new value. 
Items may be changed in any order. When the operator has no further 
changes for that member, he is given a copy of the member’s record 
as it appears on the disc with all changes made. When no further 
members are to be changed, control is passed back to the main 
program. 


DESIRED 
RECORD - 


RANDOM ACCESS 

INDEX 

AB7IDY 

AB7HOH 

ACM6JYJ 


AB7ICW 

ACM1DL2 

AB7ICJ 

AB7YQL 


AB7IDY 


m 


AB7HOH 


ACM6JYJ 


T3 


p" ^ 


AB7ICW 


ACM1DLZ 

k 

AB7ICJ 

H 

AB7VOL 

k 


SEQUENTIAL ACCESS 
SEARCH 


♦ 

DESIRED 

RECORD 


1 Search array of 

equivalent 

1 Read 57 records 

57 7 character strings 

_ times 

of 128 bytes 

2. Read record pointed to 


^ 2. Compare keyword 

by position of key in index. 


in 57 records. 


Figure 1. Comparison of random and sequential access 
methods. 
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DELETE—Remove a member from the database as specified by the 
operator. Locate member specified by the operator and replace key in 
both index and record with a zero, thus marking the space as available 
for new additions. 

LIST—Print record for a specified member. If a call sign of “all” is 
specified, the entire database will be listed in the same order in which 
it exists on the disc. 

Support subroutines are provided to perform most of the actual 
mechanics of database maintenance. Routines are provided to read 
and write a member record to a particular disc record; to fetch 
member data from the operator; to locate a member in the index and 
return the record number; and to print a member’s entire record at the 
terminal. 

Presumably, the functions provided by this database maintenance 
program could be extended indefinitely by adding sorting modules, 
mailing label printers, etc. However, it is usually more appropriate to 
keep the maintenance functions in a program separate from the data 
retrieval programs to minimize the danger of inadvertently changing 
the contents of the file. Consequently, such functions which only 
need to read the data will be kept separate and optimized for their par¬ 
ticular functions. 

It is seriously doubted that this program is of direct use to any 
reader in its present form, especially in light of the peculiarities of 
BASIC-E. Hopefully, though, it will serve as an illustration of the utility 
of random file access for record keeping. Such methods have uses in 
almost all fields of data processing, from engineering to bookkeeping 
systems to home recipe files to stamp collecting. 

PROGRAM LISTING 


REMARK U.S. ARMY-ALASKA MARS MEMBERSHIP PI LE SYSTE V 
REMARK 

REMARK THIS IS A COMPLETE M E [MA ER SHI 3 PILE I 'ITEMA MO E SYSTEM 
REMAR K ROUTINES ARE AVAILABLE TO ADD, CMA NG E, DELETE OR 
REMARK LIST ALL OR ’ARTS OF WE ME®ERSHIP FILE 
REMARK 

REMARK FILE IS O' 1 RA ROOM READ/VRITE DZSI3W. HACK MEMBER IS 
REMARK ASSISTED A SEP FRi TE R ECOR D A S FOLLOWS: 


t|py| 

rex 

RZK 

FT RST Na V E 

FIRSTS 

REX 

*1 DDLE I NI T 

n * 

RE V 

LAST NA*E 

LASTS 

rey 

GAIL SIGN 

SIGN? 


ADDRESS 

ADR , 

or r 

Cl TY 

CITY S 

REX 

STATE 

STATES 

RSX 

ZIP CODE 

ZIP 

prv 

MOXE ? u 0NE 

H“ONES 

REM 

WORM PHONE 

■a/fones 

sen 

LICENSE CLASS 

CLAST 

rex 

EXPIRATION 

EXPIRE 

REM 

REX 

RE>£RX 

REMARK 
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REK - 

REX 

REX - 

REX - 

REX - 

REX - 

11 

REX - 

1? 

50 

REM - 

20 


- STATEMENT FUNCTIONS USED IV PRI MT ROUTINES 

REM CONVERT ZIPCODE TO STRI M3 OF THE FOR X "XXXXX" 

DEF FN.ZI? SCX )=MI DSCSTR SCX ) ,1 ,5) 

REX CONVERT PHONE NUMBER TO STRI M3 OF FOR X "XX* -XX*X" 

OEr FN.FONESCX *) =LE r T5CX S,3) +" -" -*RI 3H T SCX 5,4) 

REX CONVERT TATI TO STRI M3 OF FORM "XX/XX/XX" 

OEF FM.D4TESCX ) =*1 OS( STR SCX ) ,1 ,2 )+**/" -*- \ 

MI DSCSTR SCX) ,3 ,2)+"/" + \ 

XT D$( STR S(X ) ,5.2) 

ANNOUNCE PR03RAM TO OPPERATOR 

PRINT T*3 Cl 0) . ARW-ALASKA MARS MEMB ER S»J[ D FILE SYSTEM’* 

PRINT : PRINT : PRINT r PRINT : D RI NT 


-ARRAY DEFINITION 


VAX ,ME*B EPS = 100 

01 X CA LL*C T x .MEPB ERS+l ) # C0DES(6> 

- CLEAR I NO EX ARRAY 

FOR 1=1 TO vftx MEMBERS 
CALLS(I) z m ?~ 

NEXT I 

- OPEN FI LE 

MEMBERS:" 3s MESSRS .US" 

FI LE NEB ER SCI 29) 


- CREATE INDEX IN COR E 
IF END #1 TM EN 11 
FOR 1=1 TO MAX.METERS 

READ *1 .IsDIMS ,0UMS ,0'JMS .CALLSCI ) ,DUMS ,DUM$ ,DUK« .DU*. Dim 
NEXT I 


SIZ E= I -1 

PRINT " SIZE OF MEMBER FI LE IS CURRENTLY ”;SIZE 


- DETERMINE “UNCTION TO BE PERFORMED 
CODESCI ) =" ADO" 

C0DESC2) =" OfA- 
COD ESC 3) ="OEL" 

COOESC 4) =" LIS" 

CODESC 5) r" STOP" 


FOR J=1 TO 1 STEP ? 

PRI NT 

PRINT " r UNCTI ON CAOD.CHA .DEL .LI S .STOP >" ; 
INPUT FUNC $ 

FOR I =1 TO 5 

I F “UNCS= CODESCI ) TV EN \ 

ON I GOTO 2Z ,30 ,40 ,50 ,60 

NEXT I 
NEXT J 
STOP 


ADDITIONS TO ^TAB^SE 


FOR I =1 TO 1 STEP e 
PRI NT 

PRINT "CALLSIGN OF NEW MEMBER (7 T0 q-jiT)" 

INPUT SI3NS 

IF SI3N$ ="0” THEN \ 

PRINT : \ 

PRINT " "IP RENT *E!13 ER FI LE SI Z E I S " -SI Z E 
PRINT :\ 

SOTO 1? 
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RE 1 *! CHECK rOR CLPU CATE ENTRY 
GOSUB 3? 

!«• J<>? THEN \ 

PRINT SIGNS:** ALREADY ON FILE" :\ 
GOTO 272 

REN 30 GET ^ Ta 
30SUB 7? 

REM FIND EMPTY S^ACE IN FILE 
FOR J-1 TO MAX .MEMBERS 

I r CALISCJ) ="0" TMEN 2?I 
NEXT J 

PRINT "NO v 0RE ROOM IN DIR EC TORY" 
GOTO 2?2 

REM WRITE NEW ENTRY TO FILE 
27 .1 CA LL?( J) -SI 3NS 

GO SUP 7S 

REM IF FILE SITE EXPANDS. WRITE NEW EO r 
IF J»SITE THEN : \ 

SI Z r : J • \ 

PRINT #1 ,( SI7E+1 ) jCHR $(2 5) 

202 NEXT I 
REM 


REM - - CPA N3ES TO DATABASE 


30 FOR I -\ TO 1 STEP 7. 

D RI NT 

PRINT " CALL SIGN OF ME>B ER (? TO 2 HIT)" 

INPUT SI3N$ 

I F SIGNS;"'*" IMEN : \ 

P RINT :\ 

GOTO 1? 

REM LOCATE CALL IN DIRECTORY, IF NOT F^UNO J -? 

"OSllR a ? 

I r J :? TR EN \ 

PRINT SI 3N $ NOT ON FILE." :\ 

SOTO 333 

RE" 3ET CURRENT RECORD FOR MEM? ER 
"OS LB S3 

RE" SET MEW ENTRIES FRO" OP ERA TOR 

PRI MT " "OR "ft CM CORRECTION RESPOND TO PRO" D T" 

PRINT "WITR - ITEM Ns ME .NEW ENTRY - (’,? ?o C'tlT)” 
331 INR(JT I TEN* .ENTRY I 

I- ITEvt:“Y" TREN 302 

IF !TEY«=" NA Y.EI “ T“£N FIRST? GENTRY $ t 30T0 33| 

I c I TEY*i”NC YE?" THEN YI* --ENTRY 3 t 30T0 301 
IF I TEYSNA YE3" THEN LASTS =ENTRY I ; SOTO 331 
IF ITEYF:" CALL" THEM SI 3 NS = ENTRY f : S"T" 531 
IF I TEYS--"ftOR" TR EN ft DR S :Emtry 5 : SOTO 301 
IF I TEY?:” a TY" IREN Cl TY S :ENTPY I : 30T0 301 
IF I TE y *CTft TE" THEN STATE? : ENTRY 3 ! GOTO 331 
IF ITEY*:"ZIP“ TH EN TIP ;Vft L< ENTRY 5) : SOT" 33! 

IF I TEYS:"MFONE" IREN HF3NE$= ENTRY S ; SOT* 331 
IF ITEY? :"U’FONE" IREN WFONES: ENTRY 0 : SOTO 3*1 

I" ITEYG:" CLASS" TR EN CLASS : ENTRY S : GOTO 331 
IF I T EY? =" Oft TE” THEN EXPIRE rVA Lf r NTRY I) ! GOTO 331 
PRINT "INVALID I TEN No YE" 

SOTO 3*1 


REY WRITE NEW ORTA TO FILE 

332 SOS LB 75 

PFM CO v Ft PM N^W 

GDS'P P5 
G3SUP 07 


TSX CONTENTS 
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30? 

REX 
NEXT I 

''ONE, 00 n 0 ANOTHER 

REX 



REX - 

- DELETE 

A RECORD 

43 

FDR I :] 
PRI NT 

1 TO 1 STEP 2 

PRINT " 0* LL SIGN OF XE>8 'R TC OELETEC 3 TO SUIT)" 
INPUT SIGNS 

IF SIGNS:"?" THEN \ 

PRINT : \ 

GOTO l7 


REX 

r I ND CALL IN DIRECTORY, IF NOT FOUND J :7 

GOSUB 03 

I r J -? Tw^N \ 

3 RI NT SIGNS?" NOT ON FI LE 

GOTO 4*1 


R£V 

CLEAR CALL SIGN FROM TH E RECORD 

TEX 131 : SIGN? : SIGNS:"?" 

GOSUB 7 5 


REX 

CLEAR CALL 'RON DIRECTORY 

CALLS(J) :"3" 


REM 

NOTIFY 0? ERA TOP OF S’JCCESFUL REMOVAL 

PRI NT TEX 3 5REMOVED FROM RECORD *" :J 

431 

REX 

NEXT I 


REX - 
REX 

-LIST DATABASE CONTENTS 

EITHER ONE V E^ER OR ALL METERS CA N B E LISTED 

53 

FOR I =1 

TO 1 STE* 3 

PRI NT 

PRINT " CALLSIGN OE fE!*B ER TO PRINT CP TC STOP)" 
INPUT SIGNS 

IF SIGN?:"?" THEN \ 

PRINT :\ 

GOTO !« 


prv 

’ALL* WILL LIST ENTIRE FI LE 

IF SIGNS:" ALL" THEN \ 

P RI NT CHR S(12) ;TAB (1 5) :" " :\ 

FOR J:1 TO SIZE : \ 

GOP 'JB S 5 t \ 

GOS’JB 9? : \ 

NEXT J : \ 

PRINT CHR SC12) :TAB (1 5) ;" " :\ 

GOTO 1? 


REX 

FIND XE^ER IN DIRECTORY 

GOSUB S3 

IF J :? THEN \ 

PRINT SIGNS?" NOT ON “I LE." :\ 

GOTO 532 


REX 

PRI NT CONTENTS OF TE^ ER RECORD 

30SLB S5 

GOS UB 9? 

532 

NEXT I 



REK - - SIBRO'JTI NFS 


R£« - _ COLLECT DA TA =ROK TERMINAL 

70 PRINT ” LAST N& WE ,FI RST ,W DOLE I MI T" ; 

INPUT LAST?,FIRSTS,XI $ 

RRI NT " STREET ADDRESS CR PO BOX": 

I NP L'T A DR S 
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PRINT " a TY .STATE,71? CODE" ; 

INP 'JT Cl TY 5,STATES,71 p 

PRI *■;T " HOME r ON c S ,WOR K FONES"; 

I SP 'JT M FOME S ,W FO\’E S 

PRI NT "LICENSE CLASS .EXPIRA TYON DATE"; 
INPUT CLASS,EXP!RE 

RETURN 


REX - - WRI TE DATA TO ME* EP PILE 

75 PRINT *1 ,J;FIRST*,MI $ .LASTS ,SI 3NS ,A DR S.CIIY S,STATE$/I° , 

H FONE S ,WFONES ,CLA SS ,EXPI R E 

RETURN 


REi< - - LOCATE IN DIRECTORY 

50 FOR J=1 TO SIZE 

IF SI GNSrQA LLSCJ) THEN PI 
9 NEXT J 

J'O REX ’NOT FOUND’ FLAG 

51 RETURN 

REN - - 30 READ V E>B FRS RECORD 

S5 READ *\ ,J;PIRST«,*I S, LA STS, SIGNS ,A DR S, CITY ^.STATES, 

ZI P ,H FONES ,WFONES ,CLA S $ ,EXPI R E 

RETURn 

REM - - PRINT MEMBER 0&TA 
9? PRI NT 

PRINT LASTS:" ," jFIRSTSj" :MI - - - "jSIGNS 
PRINT "CLASS - CLASS,"EXPIRES - "sFN.DATE$(EXRIRE> 
PRINT "PHONE NfERS : HOME " :FN.FONE$(HFONES) 

PRINT TA3 (1 S) WORK " ;FN.FONESCWFONES) 

PRINT " ADDRESS : " :ADR $ 

PRI NT TA3 (11 ) jdTY $j" ," :STA TE$," ;FN.7I p S(ZIP) 

PRI NT 


A»RUN MARSSASE 

3A3I C-E INTERPRETED - VER 2.2 


U.S . ARXY-ALASKA MARS MEXBERSUIP FILE SYSTE V 


3’E O r ^E^EP PILE IS CLRR ENTLY 3K 

FUNCTION (ADD, C-*A .0 EL ,LI S .STOP ) ? LIS 

CALLSIGN OF ME *5 FR TO PRINT (7 TO STOP) 
? ACMIDL7 

LAP LANTE.F ,E - - - A 0*1 DLZ 
ClASS - A DV 7XPIRPS - *7/12/72 
PHONE NMBRS ? HD*E 243-2«57 
'VOR'' 2 7 4-7? -S3 
ADDRESS : 71 SI T* LL SPRUCE T 
A NCR ORA 1E.AK ,7? 502 


CALLSIGN OF M E!*B FR TO PRINT (7 TO STOP) 
? 2 
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FUNCTION (A DD.04A .DEL ,LI S .STOP ) ? DEL 
CALL SI3N OF YS*3=R TO DELETE( ? TO SUIT) 

? KL7XY 7 

KL7XY T REMOVED FROM RECORD fa? 

(ALL 3 3N OF YE>fc EP TO PSLETEC 2 TO Q UI T) 

7 2 

FUNCTION (ADD,CHA ,D£L,LI S .STOP ) ? ADD 

CALL5I3N OF NEW vcvr rp (2 TO Q UI T) 

7 AS 7XY7 

IA ST NA ME,FIR ST, n DOLE I NIT? JONES .JOHN ,D 
STREET ADDRESS OR 3 0 BOX? PO BOSSX 1234-A 
a TY , STA TE , TIP CODE? A VCH 0RA3E ,AK ,99 5? I 
HOME FONES,VORK "ONES? 123 4557,7654321 
LICENSE CLASS .EXPIRATION DATE? 'JNK.R11231 

CALLSIGN OF NEW V E^B ER (0 TO QUIT) 

? 2 

CURRENT MEMBER FI LE SIT" IS ?? 

FUNCTION (A DO , Of A ,D EL ,LI S ,STO° ) ? CHA 

CALL 3 3N OF ER (? TO Q UI T) 

? 2 


FUNCTION (ADD, CHA .DEL ,LI S *STO° ) ? LIS 

CALLSIGN OF MEMBER TO PRI NT (C TO STOP) 
7 Ab T 


JONES ,JOHN,D - - - AB7XY 7 
CLASS - UNK EXPIRES - Sl/12/31 
PONE NY5RS i HOME 123-A567 
WORK 755-4321 
ADDRESS s PO BOX 12 3 4-A 

ANCHORA 3E,AK .99571 

CALLSIGN OF "E*EER TO PRI NT (? TO STOP) 
? 2 


FUNCTION (ADO,CHA .OEL.LIS .STOP)? CHA 


(A LL SI ON OF vrvp ro ( 7 TO Q UI T) 

? A3 7XYT 

FOR EA CM CORRECTION R ESMOND TO PROMPT 
WITH - ITE* NAME,NEW ENTRY - (? ,7 TO GLUT) 
? H"ONE ,321 7554 
7 ?. % 2 

JONES, J OH N,0 - - - AE 7 v y 7 
CLASS - UNK EXPIRES - ?l/l?/3l 
PHONE NM3RS : HOME 321-7554 
WORK 763-4321 
ADDRESS'?: °0 BOX 123 4-A 

AVCXORA 3E.AK ,99 1 

CALL SIGN OF MEMBER (0 TO 2 UI T) 

? Z 

FUNCTION (A DO.Of A .0 EL ,LI S ,S TO 3 ) 7 DEL 


(ALL 33N OF V ZVB!?. TO DTLETEC ? TO Q UI T) 
7 XL7XYZ 

KL7XY 7 NOT ON FILE. 


(ALL SIGN OF V E! , 3 ER TO DELFT E( ? TO QUIT) 
? A9 7XY 7 

A?7XY 7 REMOVED ^ROM RECORD «?a 

(ALL SIGN OF MZ’-BER TO DELETE (7 TO G UI T) 


FUNCTION (ADP.OfA .DFL.LI S .STOP )? STO° 



Chapter 8 


It’s Not a Big Miracle 

by Mathew Tekulsky 


When Ryan Faber was 13 months old, he was admitted to the 
hospital for what appeared to be a normal viral disease. His condition 
worsened, however, and by the time his ailment was identified he was 
close to going into a coma. Then lab reports came back revealing an 
extremely high level of sugar and ketones in his urine and blood. 

“This was a red flag for diabetes,” recalls Dr. Clifford Rubin. The 
child was saved, but he was in the hospital for eight days. During that 
time, while sitting at his son’s bedside, Steven Faber developed a 
remarkable and original computer program that monitors Ryan’s 
blood sugar level and thus helps maintain better control over his 
disease. 

How remarkable and original is it? 

“Using the computer in this way is a new aspect in the medical care 
of diabetes,” states Dr. Rubin, “and other doctors have shown a great 
deal of interest in following this up in the future. But it doesn’t have 
any meaning unless it benefits many cases and many people. It could 
eventually be a routine type of thing in the next ten years.” 

There’s nothing routine, however, about diabetes, an inherited 
disease that prevents the body from using sugar by blocking the pro¬ 
duction of insulin in the pancreas. Insulin is what enables blood sugar 
(glucose) to enter the cells. When glucose can’t enter the cells, it 
builds up in the bloodstream. 

But since the cells are still not receiving sugar, the body turns to 
stored sugar (glycogen) in the liver and muscle. When the level of 
glycogen is low, energy is then derived from the breakdown of body 
fat. Some of this fat is turned into toxins called ketones, which also 
build up in the blood. If too much sugar and ketones are in the blood, 
the individual can become extremely ill and may require hospitaliza¬ 
tion. This is what happened to Ryan. 

Now 23 months old, Ryan takes daily injections of insulin to keep 
his blood sugar level under control. But contrary to popular belief, in¬ 
sulin is not a cure for diabetes. In fact, its use is dangerous in and of 
itself. 
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Insulin must be administered extremely carefully in relation to the 
diabetic’s food intake and exercise. If too much food is eaten, the in¬ 
sulin is quickly used up and the blood sugar and ketone levels rise. 
While this abnormal blood chemistry presents an immediate danger, 
even moderate excesses of sugar in the blood, over a long period of 
time, can shorten life spans, cause blindness, circulatory diseases, 
arteriosclerosis, kidney failure and other disorders. 

On the other hand, if not enough food is eaten or if too much exer¬ 
cise is had, the insulin will deplete the available sugar and unless 
more sugar is administered, an insulin reaction can occur, which 
causes anything from dizziness to a coma and convulsions. 

So while he’s too young to realize it now, Ryan Faber is in a very 
precarious position. This is why it’s so important to accurately 
monitor the level of blood sugar and the amount of insulin he has in 
his system at all times. 

And that’s exactly what the computer does. It not only charts 
Ryan’s urine sugar by the hour on a daily basis and produces an 
average for the week, but it charts the two types of insulin (regular, or 
short-term and longer-acting NPH) he uses on the same graph so that 
the amount of insulin in the blood can be compared to the amount of 
urine sugar. When the insulin level is high, the urine sugar should be 
low. 

Why test urine sugar? Basically because urine sugar represents the 
blood condition of an hour earlier. Normal blood sugar is 80-120 mg. 
per 100 milliliters. But if the level goes over 140 mg%, sugar spills out 
in the urine. By calculating the concentration of sugar in the urine, the 

RYAN FABER! CLIN1TEST RESULTS FOR WEEK OF! 8/27/78 TO 9/2/78 


RESULTS FOR SUNDAY 


++ 

+ + 

+ F 


+ + 
+ + 



+ + + 


REFERENCE CURVE 

*************** 


I I Ml OF INJECIUJNJ /'45 

dosage: :• units regular 

7 UNITS NPH 


+ ++++ 


600 800 1000 1200 1400 1600 1800 2000 2200 2400 200 400 500 



600 800 1000 1200 1400 1600 1800 2000 2200 2400 200 400 500 


Figure 1 
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SAMPLE RUN 

READY 

RUN 


STARTING DATE FDR RUN? 8/27/78 
CLOSING DATE FOR RUN? V/2/78 


DATA FOR SUNDAY 

TIME OF INJECTION? 745 

DOSAGE (REGULAR t NPH)? 2r7 
600 ? 

700 ? 

800 ? 0 
900 ? 2 
1000 ? 

1100 ? 5 
1200 ? 3 
1300 ? 

1400 ? 

1500 ? 1.5 
1600 ? 

1700 ? .5 
1800 ? 

1900 ? 

2000 ? 

2100 ? 

2200 ? 

2300 ? 

2400 ? 

100 ? 

200 ? 

300 ■? 

400 ? 

500 ? 

degree of excess sugar in the blood can be determined. This is 
measured on the Clinitest scale, which goes from zero (negative, or no 
sugar) to five. 

The significance of doing this for a diabetic can be explained very 
simply. It's like watching a dam and trying to determine how much 
water is on the other side. If there’s no water coming over the dam, the 
reservoir could be almost full or almost empty. Similarly, when there's 
no sugar in a diabetic’s urine, he could be almost normal or have so lit¬ 
tle sugar in his blood that he’s setting himself up for an insulin reac¬ 
tion. Conversely, while a constant stream of water over the top of the 
dam indicates that the water level is too high, a constant stream of 
sugar in a diabetic’s urine indicates that his blood sugar level is too 
high. 

However, if there were a tiny trickle of water coming over the top of 
the dam, it would indicate that the water level was just up to the top. 
Likewise, if just a tiny bit of sugar spills out into the urine, it can be in¬ 
ferred that the blood sugar is just above normal, which is where it 
should be. 




140 


Best of Interface Age/Volume 2 


“You want to walk that thin line,” explains Faber, “of spilling the 
absolute minimum excess sugars in the urine to protect against in¬ 
sulin shock and not be so high as to contribute to the deterioration of 
the body. What the computer does is make it easy for us to perceive 
what kind of control he’s in so we can adjust for changes in insulin 
needs earlier and more accurately. For example, if he’s spilling 
negative when he should be spilling positive, we just give him a little 
more food.” 

The use of the computer is a joint effort between Faber and his wife 
Debby. During the day, Debby takes about eight urine samples from 
Ryan and marks down the percentage of sugar in the urine for each 
hour that a sample was taken. At the end of the week, a full sheet of 
numbers is brought into the computer room. Steven then loads the 
program and the computer interrogates for each day and every hour 
during that day. 

“If no tests were taken,” he says, "the carriage return is hit without 
any number being entered. If a test was made, the results of the test 
are entered as a number at that hour. If the test is negative, zero is 
entered. If there is a trace of sugar, it's attributed to be a quarter of 
one percent. One percent is the number one, up to five percent. 

“At the end of seven days, the computer prints out individual charts 
automatically for each day, averages the results for each hour during 
the week and prints an average chart which gives us a trend projection 
of what the average day looks like. This is taken to our physician every 
two months, and a major part of the checkup is going through the 
book of charts.” 

The charts themselves are arranged with two insulin curves on top 
and the urine samples (represented by asterisks), with their respective 
times when taken, on the bottom. The numbers 0-5 in the vertical col¬ 
umn (the letter “T” means a trace of sugar) represent the Clinitest 
results. High urine sugar levels occur around 1000 and 1800 hours 
because a meal has just been eaten. But if they were to occur at an 
unexpected time, it would be cause for alarm. Conversely, too many 
asterisks in the zero column would mean more sugar should be taken 
to protect against an insulin reaction. In order to walk that “thin line,” 
therefore, there should be some negative results, some that show a 
slight spill of sugar (traces, 1’s or 2’s) and few, if any, 3’s, 4’s and 5’s. 

What is the value of charting these statistics, as opposed to simply 
relying on numerical data? 

“Look in the newspaper at the stock market page,” says Faber, 
“and tell me whether the market went up or down and by how much. 
It’s impossible to tell by looking at the individual stocks. But if you 
look at a chart of the Dow Jones industrials, you an tell at a glance. 
It’s the same with this program.” 

The basic value is that in a glance it forms a picture of the 
diabetic’s day in terms of his metabolic processes from hour to hour. 
So instead of having to look at a page full of numbers, it makes it 
graphically obvious when there’s too much or too little sugar in the 
urine. The second, and more important value is that by averaging the 
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results each week, trends that don’t show up in day to day testing do 
show up before they become obvious. 

For example, it’s extremely dangerous for Ryan to get sick. Since 
running a high fever is like exercising, his sugar is used up and an in¬ 
sulin reaction could occur. If he vomits, his supply of sugar is 
drastically reduced while the flow of insulin continues, so the same 
thing could happen. 

However, if Ryan has an infection, it will attack the insulin before 
any symptoms of sickness occur. Therefore, sugar and ketones will 
appear in his urine. When this happens, the Fabers increase the 
dosage of insulin and prepare for an impending illness. 

It is because of benefits like this that the charts give Debby Faber 
more confidence in her ability to deal with Ryan’s condition. 

“It makes me feel that'when I go to the doctor, I’m giving him the 
most information about my child that I could possibly get,” she says. 
“With a child this young, you want the doctor to be as knowledgeable 
about his condition as possible and to be in touch with every detail. 
So when I walk into my doctor’s office, I’m confident that he can see 
really quickly what’s going on. 

“I don’t have to say, ‘Well, this week he was a little bit high on sugar 
one day and little bit low the next and I’m not really sure how the 
whole week averaged out.’ This way I’m sure that he can look at these 
charts and say, ‘I know exactly what to do with your son. I know ex¬ 
actly how much control he has.’ It’s making my relationship with my 
doctor really comfortable and I’m much more secure knowing he can 
track down a problem in a second.” 

Dr. Rubin says that “Ryan has been doing so well that I’ve had very 
little contact with the Fabers other than their normal visits. This is my 
first experience with the computer in this respect and it’s been a 
learning experience for me. Although juvenile diabetics are notorious 
for being in and out of control, the computer helps me to evaluate how 
much in control Ryan has been.” Rubin adds that by knowing what’s 
going on with the patient, medical costs can be reduced by avoiding 
unnecessary tests. 

Although Steven Faber is currently the only person using this com¬ 
puter program for diabetes, that could change soon. It may have been 
created for a juvenile diabetic, but it can also be used for adults, 
especially those who are new diabetics or are having difficulty keep¬ 
ing in control. In addition, hospitals that have diabetic floors could 
make use of it. 

However, it’s difficult to predict when the use of this technique will 
become, as Dr. Rubin says, “routine.” 

“Nobody is going to run out and buy a computer to keep track of 
their diabetes,” says Faber, "but we’re now moving towards that 
period of time so long predicted when the computer will become a 
commonplace appliance in everybody’s home. 

“Now how far along that road we are I don’t know. I do not believe 
that we are at the point yet when someone who hears about this, 
knows nothing about computers and has had no predisposition 
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towards buying a computer will go out and buy a system to do this. 
Those whose natural bent in this direction has put them on a fence 
and are thinking about getting a computer might find the impetus to 
go out and do it. But once you have a computer, it’s a simple process.” 

Faber sees the computer as “one of the few generalized tools that 
have been available in the history of man,” and contends that as uses 
of the computer become more widespread, diabetics who own com¬ 
puters for a variety of reasons will incorporate this application into 
their systems. 

“Fire is a generalized tool,” he says. “It was no more designed to be 
a cooker of meat than a power of rockets. Because of the nature of the 
computer and the fact that software can be created to produce 
desired results, in my way of thinking it’s a generalized tool. 

“In fact, if the computer weren’t there [he’s had his for three years], I 
wouldn’t have thought of going out and getting a computer to make a 
diabetes chart. People should consider the computer as a tool in their 
lives, a generalized tool that they can mold to their specific needs. 
And this program just shows that when the tool is there, it’s instantly 
of great use.” 

Faber’s program is a simple one. It’s written to lead the user along 
and can be modified to an individual’s needs with a minimum of effort 
or expertise. The hardware necessary is a microcomputer with 4.5 
bytes of memory on top of BASIC and a 132 character printer for the 
charts. 

But despite its value, Faber is quick to point out that “the computer 
at this point does not keep diabetics in control. Diabetics and parents 
of diabetics keep diabetics in control. The computer is only an aid to 
make that easier. And since the urine test is an hour behind, the com¬ 
puter is better at predicting trends than handling emergencies, in 
which a minute can make a big difference.” 

But even the computer’s predictive potential has some enormous 
implications. 

“Because Ryan’s so young,” says Faber, “and is going to have to lie 
with diabetes for so long, we’re trying to avoid that long-term damage 
to his blood vessels that would show up later in life. That’s the value 
of the program for us.” 

How much value will it have for other diabetics? Only time will tell. 
But for now, Faber, who donated this program to Interface Age, is 
pleased with what he’s done and with the opportunity to make his 
discovery available to others who need it. 

“Obviously I can’t do anything about curing diabetes,” he says, “so 
I’ve just made my contribution this way and I’m doing everything in my 
power to make it available to the greatest number of people.” 
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PROGRAM LISTING 


1 REM PROGRAM TO PLOT CHARTS OF URINE SUGAR WITH INSULIN CURVES 

2 REM FOR REFERENCE - - PROGRAM WRITTEN IN MICROPOLIS BASIC VERS♦ 3*0 

3 REM PROGRAM DEDICATED TO CLIFFORD RUBIN p M.B.p SIR FREDERICK BANTING 

4 REM J. J* R« MACLEODp C* H* BEST r AND COWS AND PIGS EVERYWHERE 
10DIMD(7p24> pI<7p2> pW*<7 p40> 

15DIMD*<2» 40) 

20DATASIJNDAYpMONDAY p TUESDAY p WEDNESDAYp THURSDAYpFRIDAY p SATURDAY 
25DIMU < 7) 

30F0RI«1T07*READU*<I)♦NEXT I 

40F0RI»0T07J FORJ*1T024*D<IpJ)=-l♦NEXTJ t NEXTI 

SOC*«"OTIi12131415“ 

100PRINTCHAR$(1 2 )« PRINT»INPUT“STARTING DATE FOR RUN“pD*(1) 

11OPRINTJINPUT"CLOSING DATE FOR RUN“pD*<2> 

120F0RI*iT07IPRINTCHAR4<12>♦PRINT»PRINT“DATA FOR “rW$(I> JPRINT 
130INPUT“TIME OF INJECTION"pI(IpO)♦PRINT 
140 INPUT “DOSAGE < REGULAR p NPH )"pICIp1)p.T<Ip2) 

150F0RJ*1T024 
160IFJ>19THEN190 

170PRINT<J#100)+500?•INPUTD<IpJ)*G 0T0200 
190PRINT(J#100)~1900 p:INPUTD(Ip J) 

20onextj:nexti 

210G0SUB40000*PRINT * PRINT"RYAN FABER: CLINITEST RESULTS FOR WEEK OF: “ 

220 PRINTD* <i>p■ to “ *D*<2> :fori=ito5:print:nexti 
230FORI-1T07“PRINT* RESULTS FOR “pW$<I):PRINT 
235U=600 J U1--1 
260IFU=I(Ip 0)THEN285 

270U : ~U+.l5 ♦ Ul-Ul + t: IF(Ul + l )/4~INT< (Ul + 1 >/4 ) THENU-UF40 

280G0T0260 

285U(I)«U1 

290PRINTTAB(65) “REFERENCE CURVE“:PRINTTAB(65)“***************" 
300PRINTTAB<14+U1)“++"pTABC43+U1>“+++“p:IFI=OTHENPRINT:G0T0310 
305PRINTTAB<100)“TIME OF INJECTION:*pI<I pO) 

31OPRINTTABC13+U1)“+ +“?TAB(41+U1> “ + + " p JIFI~0IHENPRINT:G0T0330 

320PRINTTABC100)“DOSAGE:"pI<Ip1) f “UNITS REGULAR“ 

330PRINTTABC12+U1)“+ + “?TAB<38+U1)“+“ f TABC51+U1)“ + " rt IFI»OTHENPRINT 

335IFI-0THEN350 

340PRINTTAB(107)I(Ip2)p“UNITS NPH“ 

350PRINTTAB(35+U.l) “+“ 

360PRINTTAB< 11+U.t ) “ + + “ f TAB<32+U1) “ + ’ JTABC55+U1 > " + “ 

370PRINTTAB < 1O+Ul ) " + “ 9 TAB < 29+U.l ) " + “ ? TAB (57+U1 >• + “ 

380PR1NTTAB(9+U1)“+"pTAB(20+Ul> “ + “pTAB(26FU1)"+“5TABC60+U1)"+" 
390PRINTTABC8+U1)“+“pTAB<21+U1)“F +“fTAB(63+U1)“+“ 

400PRINTTAB C 7+U1 )“ + “pTAB< 20+U1 )“ + +“p TAB ( 66+U1 >“ + “ 

41OPRINTTAB<17+U1)“ +"pTAB(23+U1> ' + “ pTAB < 69+U1)* F“ 

420PRINTTAB < 6+U1> “ + “ p TAB (14+U1) “ + “ i TAB (24+U1 )**>“? TAB (73+U l) “ + “ 
430PRINTTABC5+U1)" + +"?TAB(26+U1)«F“fTAB(79+U1)"+“ 

440PRINTTAB< 4+U1)“f f“ pTAB<27+U1)“ + "pTAB<8S+U1)? 

450F0RI0«85+UlT095:PRINT“ + “p JNEXTIO JPRINT 
455Q0SUB460:G0T0550 

4 6 OF OR 10 * 1 TO 96 : PR INT “=="?: NEXT 10: P RIN T 

40oforio«ito24:print“ : y f :nex rio:pRiNt 

490PRINT" 600"p 

5 0 0 F 0 R10 ;: = 8 00 T02400S T E P200 : PR I NT TAB ( ( < (10-600 ) /100) *4 ) +2) 10 i l NEXT 10 
S10F 0 R10* 200T0400S T E P200 J P RIN T T AB C 7 4 F ( (10/10 0) * 4 ) ) 10 p J NE X T10 
520PRINTTABC95)"500“ 

530RETURN 
550PRINTJPRINT 

S60F0RIO*i2T04STEP“l JPRINTMID* <C*p IOp 1 ) p 
5621F10/2INT (10/2) IHENPRINT “ —>“ f 
570F0RJ«lTn24 
575PRINTTAB<<J#4)~l) p 

580 IF Ci (I p J ) <= < 10-2 ) /2ANDD < I f J) > (10-3) /2THENPRINT “ * n ? : GO TO 60 0 
590PRINT * "p 

600NEXTJ:IFI0/2-INT(10/2)THENPRTNT* <—“ f :GUT 0620 
61OPRINT' “p 

620PRINTMID*(C$ pIO p1> 
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A30NEXTI0 

<640F0RI0=3TQlSTEP-i:PRINThiri*<C*,I0.1>!:iFI0/2=INT(I0/2>THENPKINT"" 
<450FORJ=1T024!PRINTTAB< < ,J*4> -1 ) i 

AAOIFBCI , J><=< IO-l >/4ANDD< I, ..!)>< 10-2>/4THENPRINT■* 1 t !G0T0<480 
470PRINT - "i 

680NEXT JI IFI0/2=INT (10/2) THENPRINT ■<— “ r IGOT0700 
A90PRINT 1 ■! 

700PRINTMID»(C*»I0»1) 

710NEXTI0 

720G0SUB460!PRINT!PRINT:PRINT SPRINT:PRINT 

722IFI=1THENPRINTSPRINT 

725PRINT ! PRINT SPRINT! F'RINT! IF 1 = 1 THEN730 

72APRINT!PRINT:PRINT:PRINT:PRINT 

730F0RI0=1T0132/3!PRINT“<#>“?SNEXTIOSPRINT 

735IFI=0THEN8O0 

736PRINTSPRINT SPRINTS PRINT!IFI = 1IHEN740 
737PRINTSPRINT:PRINT SPRINT:PRINT 
740PRint:print:print:print:print:nexti 

75oforj=ito24:k=o:a=o:fori=i ro7:lro( i r j > 0-1 thena*a+d <i» j > t k»k+ t 

760NEXTI:IFK=0THEN765 
762D(0»J)=A/N 
765NEXTJ!I=0 

770U1=0:FORG9=1TD7:u 1=U1+U(Q9> !NEXTQ9!U1 = INT( (lJl/7) + .5) 

780F*RINT 'AVERAGE!! RESULTS FOR WEEK OF TO ■!I)*(2> 

790PRINT!G0T0290 

G00G0SUB30000 

01OENB 

30000ASSIGN<2>2> 

30010RETURN 

40000ASSIGN <2f1)!RETURN 


Due to the importance of this article, we recommend 
that it be copied and used as often as needed. However, 
proper credit must be given to: INTERFACE AGE, Mat 
Tekulsky and Steve Faber. 

Those of you interested in getting in contact with 
Steve Faber can write to him at P.O. Box 69200, Los 
Angeles, CA 90069. 


—editor 



Chapter 9 


Heart Attack: 

How You Can Predict It 
and Some Things 
You Can Do About It 


by Leo P. Biese, M.D., F.C.A.P. 


Heart disease is the number one killer in the United States, and one 
form, the acute myocardial infarct, or “coronary,” is the most frequent 
cause of sudden unexpected death. The facts are that by the age of 70 
at least one out of every five readers of this book will be dead of a 
heart attack. Such loss of life is not “preordained” but is a conse¬ 
quence of the way we live. 

In recent years, we have been accustomed to reading that eggs, but¬ 
ter, smoking, and all sorts of other things are bad for our hearts. 
Sometimes we are even given some sort of vague figures about how 
bad these things are for us. This program will calculate your risk of a 
heart attack, but far more importantly, it will show the improvement 
that can be achieved by reducing the factors over which you have 
some control. 

BACKGROUND 

For twenty-eight years the Heart and Lung Institute of the National 
Institutes of Health, U.S. Public Health Service, has been closely 
studying the population of Framingham, Massachusetts, in an effort 
to determine the incidence and factors that influence heart and 
vascular diseases of all types. From a massive program of multi¬ 
variate regression analysis, seven factors have been isolated as 
clearly influencing the probability of heart disease. Numerous studies 
by other research groups in various parts of the country have substan- 
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tiated the validity of this data applied to the general population of the 
U.S. as a whole. 

An eighteen-year follow-up of the Framingham population was 
published by the U.S. Government Printing Office in 1974. Dr. Kammel 
of the Framingham Project and D. McGee of the Biometrics Research 
Branch kindly provided copies of the statistical data. Neither these 
researchers nor the National Institutes of Health is in any way respon¬ 
sible for the use to which the author has put this data. 

The statistical base is only valid for the ages of 35-65 (45-65 for 
women) and the accuracy of the program outside these ages has not 
been determined. It will be noted that the author has “fudged” a bit on 
the lower age limits. The data, furthermore, applies only to those free 
of known heart disease at the time the program is run. A previous 
heart attack, for example, would make the program completely invalid. 
The data of HDL is further qualified below. 

THE PROGRAM 

The program is written in MITS 4.0 Disk BASIC and is largely self- 
explanatory. Formatting and console-switching program lines for the 
production of a professional report have largely been eliminated in 
the interest of brevity. Double precision arithmetic is declared in Line 
380 and is redundant since the “#” appendage and the D-exponent 
also signify double precision arithmetic in the MITS format; they are 
retained only for clarity. The program takes only about two seconds to 
compute probability in this format and does not constitute a signifi¬ 
cant time delay. For clarity, the actual published NIH regression coef¬ 
ficients are shown in a Remark statement (‘.)as well as the alter¬ 

nates for all heart and vascular diseases beginning in Line 760. 

The only other problems that may occur in translating this program 
into other versions of BASIC are as follows: In Line 1010 EXP(X) 
returns e to the power X. The formula for probability is: 


1 + e'“" 

where sum is the total of all the coefficients times their multipliers 
plus the intercept. 

Lines 1380 and 1400 have a PRINT USING statement to avoid print¬ 
ing out the fourteen-place double precision number. If your BASIC 
does not have this, an appropriate rounding procedure must be used. 
Finally, multi-letter variables have been used for clarity and you may 
need to change these to single letters. The inputs have been assigned 
single letters so they can be recalled for the printout in their original 
form. 

THE RISK FACTORS 

Age is the single most important factor, since it is a high multiplier. 
Unfortunately, it—along with sex—is one that is not under our con¬ 
trol. A2 is used as a correction factor for the non-linearity of age with 
risk, which is actually a quadratic term in the original equations. 
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Cholesterol is the value of your blood cholesterol in mg/100 ml, and 
can easily be obtained from your doctor if you don’t already know it. 
The factor is correct for most modern automated and semi-automated 
laboratory methods, but your result may have to be lowered five to ten 
percent if an older, manual method was used. Ask your doctor to find 
out the comparison of his laboratory’s value with the “ABELL- 
KENDAL” reference procedure if there is some doubt. Like age, 
cholesterol is a non-linear function and CXA is the correction factor 
for a cross-product term in the original equations. 

BP is the resting systolic blood pressure. This is the higher of the 
two numbers you are usually given as “something over something,” 
and is the peak pressure during the heart’s contraction. (The other 
number is the diastolic pressure when the heart is relaxed.) 

ECG refers primarily to evidence of left heart (the side that does 
most of the work) enlargement as shown on your electrocardiogram. 
Any other abnormalities in the ECG would also qualify, as would any 
other evidence of enlargement, such as an x-ray. Heart enlargement is 
an important indication that your heart may have to work too hard 
pushing the blood around your body (a bigger pump for a bigger Job) 
and as such is an important indicator of risk. It is, however, often a 
reversible change. 

C/G refers to the history of smoking regularly within the past year.lt 
is a one-time additive factor (0 or 1) to the risk rather than a multiplier. 
Note that the data is not available for increased risk based on how 
long or how much you smoke, just whether you do or don’t. Strangely, 
the data on smoking in women gave a negative correlation, sug¬ 
gesting that they are better off (though only slightly) for it. This is 
believed to be an artifact of the population (it is not negative, for ex¬ 
ample, in the overall heart-vascular risk), but has been retained as 
given. 

GLU refers to glucose intolerance as manifested by a “high blood 
sugar,” sugar in the urine, or a known diagnosis of diabetes. Like 
smoking and ECG, it is a one-time additive factor rather than a 
multiplier. It is not known if correction of diabetes reduces the risk. 

GLU and ECG are probably the factors which the reader may have 
the most difficulty in determining, though this information should be 
readily available from your doctor. If you do not know these, and set 
them to zero, the probability will be low (if you really did have them) by 
somewhere between three and ten percent for each factor, and you 
may want to run the program with various possibilities. 

IN is in the X-intercept for the statistical data, the point at which all 
risk factors in the probability equation would be zero. 

HDL, or High Density Lipoprotein, has been very much in the news 
recently as “the fat that’s good for you.” This protein and its 
associated cholesterol seem to protect the heart and indeed, very 
high levels (over 85) are associated with longevity, often occurring in 
families of people who customarily live to 90 or 100 without evidence 
of heart disease. 
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HDL was not part of the original Framingham criteria, but was from 
later studies on an older population and was based on an eight-year 
projection rather than a six-year one. For these reasons, it is not part 
of the '‘official” U.S. Government criteria. The figures appear, 
however, quite reliable. Unlike the other factors, it is a multiplier of the 
previously determined risk above. A value of 45 (55 in women) means 
that your overall risk is unchanged. Below this, the overall risk is 
multiplied up to approximately three times, depending upon the level. 
Values above this decrease your risk progressively. It is quite a new 
test, and if you have not had yours measured yet, a zero will bypass 
this part of the program. An exciting prospect is that it may be con¬ 
trollable in the near future. As of yet, however, only alcohol (and fish, 
to a very slight degree) have been shown to have any significant effect 
in raising your HDL. Alcohol does indeed raise HDL, but since cir¬ 
rhosis is also a prominent cause of death, the reader is cautioned to 
wait until further research has clarified the prospects of controlling 
HDL before going off on a toot. 

COM is your risk compared to the same age group (without regard 
to HDL), in which BP = 105, CHO = 185, and CIG, GLU, and ECG are all 
zero. This is the part of the program that will pointedly show you the 
decrease in risks that can be obtained by a little clean living. It was 
programmed as a simple table based on overall heart and vascular 
disease to avoid introducing seven more variables and repeating the 
calculations. 

CONCLUSIONS 

Put out the cigarette, switch to margarine, exercise a little, lose a 
little weight, and OFF THE KLINGONS for a good many years to come. 

PROGRAM LISTING 

10 -heart: predicts the probability op coronary heart disease within 

20 '6 YEARS COMPARED TO A CONTROL POPULATION AND MAY BE RERUN TO SHOW 
30 -A DECREASED RISK OBTAINABLE BY REDUCING THE 'CORRECTABLE' VARIABLES 
■40 'SMOKINGiBLOOD PRESSURE AND CHOLESTEROL. COMPARISON IS TO A SAME AGE 
50 'GROUP WITHOUT OTHER RISK FACTORS AND IS BASED ON THE DATA PROM THE 
60 '28+ YEAR ONGOING STUDY OF THE POPULATION OF FRAMINGHAM.MASS. BY THE 
70 'NATIONAL INSTITUTES OF HEALTH AND PUBLISHED BY THE U.S.GOVERNMENT 
80 'PRINTING OFFICE IN 1974. ADDITIONAL DATA ON THE HDL FACTOR IS FROM 
90 'FROM LATER PUBLICATIONS AND CORRESPONDENCE (1977) 

100 ' 

110 'PROGRAMED IN HITS 4.0 DISC BASIC BY: 

120 ' LEO P. BIESE. MD. FCAP 

130 ' NEW ENGLAND CLINICAL LABORATORIES 

140 ' 183 MAIN STREET 

150 ' TILTON. N.H. <03276) 

160 ' 

170 'LIST OF VARIABLES FOR RISK CORELATION FACTORS: 

180 ' 

190 'AGE IN YEARS. DIRECTLY CORELATED FOR 35-76 ONLY 
200 'A2 A CORRECTION FACTOR FOR THE NON-LINEARITY OF AGE 
210 'CHO FASTING BLOOD CHOLESTEROL IN MG./100ML. 

220 'BP MEAN SYSTOLIC RESTING BLOOD PRESSURE IN MM.HG. 

230 'AVE TABLE OF MINIMAL RISK PROB FOR AGE GROUP 
240 'COM COMPARISON WITH THE MINIMAL RISK GROUP 
250 'SUM SUM OF THE INDIVIDUAL RISK COEFFICIENTS 

260 'CIG SMOKING HISTORY (NON-SMOKER IS ONE ABSTAINING >1 YEAR) i 0 OR 1 

270 'ECG EVIDENCE OF LEFT HEART ENLARGEMENT IN THE ECG <0 OR 1) 

280 'GLU GLUCOSE INTOLERANCE"!> N0NE"0 
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290 'CXA 
300 'IN 
310 'HDL 
320 'SEX* 
330 'PROB 
340 'COM 
350 'SUM 

360 ' 


CHOLESTEROL X AGE» A CORRECTION FACTOR FOR NON-LINEARITY 

THE REGRESSION ANALYSIS INTERCEPT 

HIGH DENSITY LIPOPROTEIN LEVEL IN MG/100 ML 

•M" OR ’ F ’ 

THE PROBABILITY OF CORONARY DISEASE 
COMPARISON WITH THE MINIMAL RISK GROUP 
SUM OF THE RISK COEFFICIENTS 

DATA INPUT MODULE 


370 PRINT‘PRINT *PRINT I PRINT 
380 DEFDBL A-Z 

390 INPUT “NAME *» N* 

400 INPUT'SEX (M OR F> ’JSEX* 

410 INPUT*AGE (IN YEARS) *»A 

420 LINEINPUT-DATE *rDAY$ 

430 INPUT■DOCTOR/CLINIC * r DR* 

440 INPUT * COLESTEROL *rC 

450 INPUT*BLOOD PRESSURE "JB 

460 INPUT*ABNORMAL ECO (YES=lrN0»0) *fE 

470 INPUT’SMOKER <YES»1»N0=0) *rS 

480 INPUT’GLUCOSE INTOLERANCE (YES=lfN0=0> *»G 

490 INPUT’HDL * fHDL 


500 ' CALCULATION MODULE (AS PRINTED BY MITS BASIC 

AND AS GIVEN BY NIH) 


510 IF SEX* * ‘F’ THEN 630 
520 AGE » A*.3754941*' 

530 A2 - A*A* -2.2165D-03 
540 CHO - C* .0271697*' 

550 BP « B* .0118041*' 

560 CIG » S* .4389169*' 

570 ECG - E* .5219694*' 

580 GLU - G* .2312953*' 

590 CXA * C*A* -3.718D-04' 
600 IN » -19.4532586*' 

610 GOTO 870 
620 : 

630 AGE = A* .3769988*' 

640 A2 * A*A* -2.325D-03' 
650 CHO » C*.0185534*' 

660 BP » B*.0132024*' 

670 CIG » S*-.1779578*' 

680 ECG « E*.7187659*' 

690 GLU * G*.5602516*' 

700 CXA - C*A* -2.288D-04' 
710 IN » -19.9537134*' 


0.3754941 MALES 

- 0.0022165 
0.0271697 
0.0118041 
0.4389169 
0.5219694 
0.2312953 

- 0.0003718 

- 19.4532586 


0.3769988 FEMALES 

- 0.0023250 
0.0185534 
0.0132024 

- 0.1779578 
0.7187659 
0.5602516 

- 0.0002288 
- 19.9537134 


720 ' 




730 ' 

» THE 

ABOVE COEFFICIENTS ARE SPECIFIC FOR CORONARY HEART DISEASE, i 

740 ' 

1 FOR 

OVERALL RISK OF HEART 

DISEASE OF ANY KIND*INCLUDING STROKEr J 

750 ' 
760 ' 

1 SUBSTITUTE THE FOLLOWING 

1 

coefficients: s 

770 ' 

1 AGE 

0.3743307 MALES 

0.2665693 FEMALES 5 

780 ' 

1 A2 

- 0.0021165 

- 0.0012655 1 

790 ' 

! CHO 

0.0258102 

0.0160593 ! 

800 ' 

1 BP 

0.0156953 

0.0144265 ! 

810 ' 

S CIG 

0.5583013 

0.0395348 ! 

820 ' 

1 ECG 

1.0529656 

0.8745090 ! 

830 ' 

S GLU 

0.6020336 

0.6821258 { 

840 ' 

1 CXA 

- 0.0003619 

- 0.0002157 S 

850 ' 
860 ' 

: IN 

-19.7709560 

- 16.4598427 ! 


870 SUM » CXA+A2+AGE+CH0+BP+CIG+ECG+GLU+IN 
880 PROB- (1/(1+EXP(-SUM)>*100) 

890 IF HDL-0 THEN 920 

900 IF SEX*»’M’ THEN PROB-PRQB*( 6*EXP(-.04 *HDL)>JGOTO 920 
910 IF SEX*“’F’ THEN PROB-PROB*(11*EXP(-.043*HDL)> 

920 COMPARISON WITH MINIMAL RISK GROUP 

930 IF SEX*“’F’ THEN 1030 
940 IF A>33 AND A<-37 THEN P-.6 
950 IF A>38 AND AC-42 THEN P-1.1 
960 IF A>42 AND A<-47 THEN P» 2 
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970 IF A>47 AND A<=52 THEN P= 3.3 
980 IF A>52 AND A<*57 THEN P-4.6 
990 IF A>57 AND A<=62 THEN P-5.9 
1000 IF A>62 THEN P-6.8 
1010 GOTO 1090 
1020 : 

1030 IF A>42 AND AC-47 THEN P» .8 

1040 IF A>48 AND AC-52 THEN P= 1.5 

1050 IF A>53 AND AC-57 THEN P= 2.3 

1060 IF A>57 AND A<»62 THEN P- 3.2 

1070 IF A>62 THEN P-3.9 
1090 COM-PROB/P 


1180 


PRINTOUT MODULE 


1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 


PRINTtPRINT 

PRINT" PATIENT { MNU TAB < 50) ■ DOCTOR/CLINIC. ■ i DR* 

PRINTIPRINT'DATE I'JDAY* 

PRINT{PRINT 

J F SEX *“' M ’ then print* hale*m else PRINT* FEHALE*( 
PRINT TAB(.0)I IF S-I THEN PRINT*** SHOKER *** ELSE PRINT * NONSMOKER * 
PRINT * CHOLESTEROL -*ICI*HG/100 ML*)TAB(40>» 

PRINVSYSTOLIC I Bp‘2Vyi?*Hm T So!*??iBf4!f( ,>RINT ’ NO BLUC ° SE INTOl - ERflNCE ’ 

IF E*1 THEN PRINT'ABNORMAL*I ELSE PRINT'NORMAL ■f 
PRINT' ECG" 

IF HDL-0 THEN PRINT'HDL NOT EVALUATED'{GOTO 1320 
PRINT'HDL - 'IHDL*'MG/100 ML' 

PRINT{PRINT{PRINT 

PRINT' BASED ON THE ABOVE DATA* THE PROBABILITY OF CORONARY HEART' 
PRINT' DISEASE WITHIN 6 YEARS IS 
PRINT USING "##.#'*PROBi 
PRINT'* OR ■» 


1370 PRINT USING '*♦.♦'fCOMf 
1380 PRINT' TIMES THAT OF THE' 

1390 PRINT' SAME AGE GROUP WITHOUT OTHER RISK FACTORS.'{PRINT 


SAMPLE RUN 


NAME 

SEX (M OR F) 

AGE (IN YEARS) 

DATE 

DOCTOR/CLINIC 
COLESTEROL 
BLOOD PRESSURE 
ABNORMAL ECG (YES-1»N0»0> 

SMOKER (YES-lrNO-O) 

GLUCOSE INTOLERANCE <YES-1»N0-0> 
HDL 


? JOHN DOE 
? M 
? 35 
4/28/78 

? ANY CLINIC USA 
? 185 
? 105 
? 0 
? 0 
? 0 
? 0 


PATIENT» JOHN DOE DOCTOR/CLINIC l ANY CLINIC USA 

DATE {4/28/78 


AGE 35 MALE NONSMOKER 

CHOLESTEROL - 185 MG/100 ML NO GLUCOSE INTOLERANCE 

SYSTOLIC BP - 105 MM. HG. NORMAL ECG 

HDL NOT EVALUATED 


BASED ON THE ABOVE DATA* THE PROBABILITY OF CORONARY HEART 
DISEASE WITHIN 6 YEARS IS 0.6* OR 0.9 TIMES THAT OF THE 
SAME AGE GROUP WITHOUT OTHER RISK FACTORS. 


OK 

RUN 
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BASED ON THE ABOVE BATA. THE PROBABILITY OF CORONARY HEART 
DISEASE WITHIN 6 YEARS IS 51,8X OR 7.6 TIMES THAT OF THE 
SAME AGE GROUP WITHOUT OTHER RISK FACTORS. 
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Chapter 10 


Shooting Stars 

By H. DeMonstoy 


INTRODUCTION 

This game was written to run on my SWTP 6800 with the CT-1024 
terminal. The BASIC program is Tom Pittman’s “TINY BASIC 6800” 
from Itty Bitty Computers. Tom Pittman’s Tiny BASIC takes about 2K 
of memory. 

The idea for this game came from BYTE’s May 76 issue, but I have 
seen it in several forms from high level language to a game for the 
calculator. I wrote this program to fit my needs with the Tiny BASIC 
and TV terminal. 

RULES OF THE GAME 

The game is played in a “universe” of stars (★) and black holes (-) 
that is arranged in a 3x3 matrix. Each position has its own number 
from one to nine. Position 1,2 and 3 are across the top, with 4,5 and 6 
through the center and 7,8 and 9 across the bottom. The first print out 
has a star In the center (position 5) with black holes all around it. The 
idea Is to shoot stars only, never a black hole, and change the 
“universe” into eight stars surrounding one black hole. 

Each star has its own “galaxy,” and when a star is hit, every posi¬ 
tion in that galaxy changes: all stars become black holes, and all 
black holes become stars. The first shot must be position 5, the only 
star in the universe. When this is done, position 5 becomes a black 
hole and position 2 (above), position 4 (left), position 6 (right), and posi¬ 
tion 8 (below) all become stars. So it goes on and on. The best score is 
eleven shots, but watch out for the all black hole "universe” because 
It is a loser; no stars left to shoot. 

The Instruction subroutine has a "galaxy” map to follow. Each one 
is different, which makes for an interesting challenge. 
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FRAME NUMBERS DISPLAYED FOR ADDED INTEREST 

For added interest the frame number is printed in the first line of 
each frame to keep a running count of the tries. The record here is 56 
tries before a win. By the way, I think the quickest loss is in 5 tries, but 
I may be proven wrong. 

CRT TERMINAL CONTROL 

As I mentioned before this program was written for the CT-1024 TV 
terminal and so has some special statements to control the cursor. In 
my system the “Home Up” is a CONTROL P (DEL), and “Erase to EOL” 
is a CONTROL U (NAK), but may be different in your system. These do 
not show in the written program, but are used 4 times. The first is line 
149 where, after 3 frames, a new start is made at the top of the screen. 
The control signals are located in the quotation marks after the PRINT 
statement. Lines 900, 919 and 939 are similar, and start the three in¬ 
struction frames. 

TTY TERMINAL CONTROL 

If you are running this on the TTY terminal, then there will be no use 
for the control statements used as cursor control. There are three sets 
of statements at the end of each instruction frame designed to hold 
that frame until the next one is wanted. These statements and the 
INPUT Z statements that follow will have no use with a TTY terminal. 

RUNNING SHOOTING STARS WITH 4K MEMORY 

By removing the instructions, this could be run on a machine with 
only 4K of memory. 

I hope you enjoy Shooting Stars. 


PROGRAM LISTING 

000 HEM SHOOTING STANS IN TBX 

00I NFM PY HFNMAN OFMONSTOY 

002 NFm OATF: I P-18-7A 

003 NFM MICKOCOMPUTFR: SWTP*S AH00 

084 NFM SUPPORT SOFTNANF: TOM PITTMAN'S TBX 

80S RFM MFMONY KFOIIIKFOt ?K FOh TBX X GAMF 

00A NFM TFRMINAL: CT-10P4 KFYROAND-CNT ON TTY 

007 NFM 

008 NFM 

010 PRINT "INSTRUCTIONS CI=YFS# 0=NO>"{ 

0P0 INPUT 7 

030 IF 7=1 GOSMR 900 

100 A~- I 

10 I R = - 1 

10P C= * 1 

103 D = - 1 

104 F=l 

105 F = - 1 
10 A G=-l 

107 H=- 1 

108 I=-l 

109 J=0 

148 PRINT 

149 IF J/3*3=J PRINT 

150 IF A=1 PRINT "* "* 

1M IF A = -1 PRINT "- "J 
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Flow Chart—Part 1. Shooting Stars 
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Flow Chart— Part 2. Shooting Stars 
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155 IF P=1 PRINT "* M ; 

156 IF Rs-I PR J NT "; 

160 IF C=! PRINT “* "{.I 

161 IF C-“ I PRINT **- "Jj 
1 65 IF 0= 1 PRINT "J 

1 66 IF f) = -l PRINT "* 

170 IF F =I PRINT "* "I 

171 IF F=-l PRINT *•; 

17 S IF F - I PRINT 

17 6 IF F = - I PRINT 

180 IF 0=1 PRINT *•; 

181 IF o=-i PRINT "J 

IP'S IF H= I PRINT "* "J 

1 8A IF H = -l PRINT **- "J 

190 IF 1 = 1 PRINT 

191 IF I=-l PRINT "I 

250 IF F=l GOTO 390 

260 IF A+R+C+D+F+G+H+IsR GOTO 809 
270 IF A + P+OD + F + G+H-M = -8 GOTO 820 

390 PRINT "SHOOT"? 

391 INPI'T Y 

395 GO 51 IP 4 9 9 + Y + 1 0 
397 J=J+1 
400 GOTO 148 

499 PRINT "YOU GAUF IIP ON TRYS !!!" 

500 GOTO 830 

509 IF A=-1 GOTO 800 

510 A = - A 
51 1 P = -P 

51? n=-n 

513 F = - F 
516 PFTURN 

519 IF P=-l GOTO 800 

520 A=-A 

521 P=-P 

522 C=-C 
526 RFTURN 

529 IF C=-l GOTO 800 

530 R=-H 

531 C=-C 

532 F=-F 

533 F = -F 
53A RFTURN 

539 IF D=-l GOTO 800 

540 A= - A 

541 n = -r> 

542 G= -G 
546 RFTURN 

549 IF F=-1 GOTO 800 
55M R=«R 

551 D=-D 

552 F = -F 

553 F = -F 

554 H=-H 
556 RETURN 

559 IF F=-l GOTO 800 

560 C=-C 

561 F=-F 

562 I=-I 
566 RFTURN 

569 IF G=- 1 GOTO 800 

570 D=-0 

571 F = -F 

572 0=-G 

573 H = -H 
576 RFTURN 

579 IF H = - 1 GOTO 800 

580 G=-G 

581 H=-H 

582 I =- I 
586 RFTURN 

589 IF I=-l GOTO 800 

590 F = -F 

591 F = - F 

592 H = - H 

593 I=-I 
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59A UPTURN 
599 RETURN 

800 PRINT "HEY !! YOU CAN ONLY SHOOT*’ 

801 PRINT "STARS* NOT BLACK HOLES." 

802 GOTO 390 

809 PRINT 

810 PRINT "YOU VON WITH "»J;" SHOTS" 

815 GOTO 830 

820 PRINT "YOU LOST WITH "IJj r * TRY5." 

830 PRINT 

831 PRINT "TRY AGAIN (1=YES* 0=NO)"J 

832 INPUT X 

833 IF X=1 GOTO 100 

834 IF X=0 GOTO 890 

835 PRINT "FOLLOW INSTRUCTIONS " 

83A GOTO 831 

890 PRINT "HOPE YOU HAD FUN" 

895 END 

899 REM INSTRUCTION SUBROUTINE 

900 PRINT 

901 PRINT "* * * THFNF ARE STARS" 

902 PkINT "- - - AND BLACK HOLES" 

903 PKINT "* * * IN THE UNIVERSE" 

904 PRINT 

905 PKINT "1 2 3 YOU SHOOT A STAR +" 

90A PRINT "4 5 A NOT A BLACK HOLE -" 

907 PRINT "7 89 BY TYPING ITS NUMRFR" 

908 PRINT 

910 PRINT "EACH STAR IS IN A GALAXY." 

911 PRINT "WHEN YOU SHOOT A STAR* FVF.KY-" 

912 PRINT "THING IN ITS GALAXY CHANGES." 

913 PKINT "ALL STARS BECOME BLACK HOLES*" 

914 PRINT "ALL BLACK HOLES BECOME STARS." 

915 PRINT "TYPE *2* TO GO ON."* 

91 A INPUT Z 

920 PKINT "GALAXY MAPS:" 

921 PRINT 


923 

PRINT 

" 1 

* - 

* 

2 

* 

- * 

3" 

924 

PRINT 

"* 

* - 

- 

- 

- 

- * 


925 
92 A 

PRINT 

PRINT 


• ~ 

“ 

“ 


* ~ 


927 

PRINT 

"* 

- - 

- 

* 

- 

- - 

*" 

928 

PRINT 

"4 

- - 

* 

8 

* 

- - 

A" 

929 

930 

PkINT 

PRINT 

"* 

“ “ 

“ 

* 

~ 


*" 

931 

PKINT 


- - 

- 

- 

- 

- - 

-** 

932 

PRINT 

*' * 

* - 

- 

- 

- 

- * 

*" 

933 

PRINT 

"7 

* - 

* 

8 

* 

- * 

9" 


934 PRINT 

935 PRINT "TYPE *3* TO GO ON"; 

936 INPUT 7 

940 PRINT "PATTERNS TO LOOK FOR:" 

941 PRINT 

942 PRINT "START WIN LOSE" 

943 PRINT 

945 PRINT - - * * * - - 

94 A PR INT "- * - * - * - - 

947 PRINT - - * * * - - 

948 PRINT 

949 PRINT "TYPF *0' TO FND GAMF" 

950 PRINT 

951 PRINT "TYPF *4* TO GO ON"; 

952 INPUT Z 

999 RETURN 

1000 FND 
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SHOOTIMP STARS HY H. 


HUM 

INSTRUCTIONS <1 = Y>S, 


- * - 

- - - SHOOT? 5 

- * - 1 

* - * 

- * - SHOOT? 2 

* - * 2 

* - * 

- * - SHOOT? K 

* - * 3 

* - + 

* - * SHOOT? 1 

- * * 4 

- * * 

* - * SHOOT? 9 

- * * 5 

* * - SHOOT? 3 


* - - SHOOT? 7 

- * - 8 
- * - 

- * - SHOOT? P 

* - * 9 

- * - 

- * - SHOOT? 8 

* - * 10 

- * - 

* - * SHOOT? b 

* * * 11 
♦ - * 

* * * 

YOU VON VJTH 11 SHOTS 


DKMONSTOY 


0=NO)? 0 


TRY APAIN (1=YKS# ll-NO)? 0 
HOHH YOU HAD FUN 
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Chapter 11 


European Roulette 
in Color 

By W. C. Hoffer 


Fortunes have been made and lost at the roulette tables of the 
world, but after an initial investment for the hardware, you can play 
roulette without fear of losing your fortune. The game, European 
Roulette in Color, runs on the Compucolor microcomputer and re¬ 
quires a minimum of 16K bytes of user random access memory. 

The original program was written in Dartmouth BASIC. The conver¬ 
sion to a non-pictorial version for Compucolor BASIC was not dif¬ 
ficult. The time-consuming effort was animating the game and adding 
color. Currently, the “wheel” consists of a ball which rolls counter¬ 
clockwise on one circle, then clockwise on a smaller circle simulating 
how the ball falls into the winning number. 

I have dispersed REMARK statements throughout the program to 
help the reader determine what happens in each section. 

Operating instructions and playing rules are available at the begin¬ 
ning of each game. New players are urged to read them in order to 
avoid confusion. 

However, the program is completely self-instructing and prompts 
the player for each input as required. Player inputs are checked for 
validity. Invalid plays are politely refused and the player is asked to 
play again. 

After the playing surface appears on the screen, you will be 
prompted to PLACE YOUR BETS. The cursor will be positioned where 
a question is being asked, and the player must respond with either a 
YES or a NO each time the cursor points to a word. After YES answers 
are given to the ODD or EVEN, RED or BLACK display, a “$” will ap¬ 
pear asking for the bet in dollars. A YES to the COLUMN question will 
result in a “1-2-3?” display, asking for the column of your choice and 
your bet. A YES to the NUMBER question will prompt "0-36?”, asking 
for the number and your bet. 
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When all the bets have been placed, the ball will begin to roll just 
above the playing surface. When the ball stops, the winning number 
will appear on the left of the screen, and the BETTING RESULTS sign 
on the right. The actual results for each of your bets will follow that. 
Losses are displayed in RED and winnings in GREEN. The cumulative 
total for the games is kept for you and is constantly displayed on the 
right of the screen. 

The HOUSE wishes you the best of luck and reminds you that you 
may pick up your winnings at the same location you deposited your 
losses. 


PROGRAM LISTING 


100 pyM TUROFTAN poultttf 

lie RF M CONVEPTFD FRC M TARTMOUTH FASIC PY: 

11? RF M W .C .HOFFER-2721 N . a'ANDA-S IMI V .ALLEY ,C 4 -93065 

Ilf p F^ ?F0UIR r S 1 C K OF USER RAM 

lif spv display TRF INTRODUCTION 

l?e PL0T6:PL0T3?:PI0T12:?L0T27:PL0T11: PLOT 14 

130 PLOT?:?L0T2l:PLOT? 

140 PLOT? :PL0T2f 

150 p?.int"co v pucolor presents FUROFFAN roulette" 

1*0 PLOT? :PLOTP0:PLOT? 

1^0 GOSUB 10000 

1°0 PLOT? :PL0T7: D L0T12 

210 E=0 

??? PRINT "WELCOME TO THE COMPUCOIOP CASINO AND OUP PtRO?'* AN ^OULETTF T A - T F • ’ 
2^0 PRINT "VI WISH V 0U THE RES ? OF LUCK!." 

240 PRINT:FRINT:PFINT 

2?0 FRINT''D0 YO'J WAN 17 * INSTRUCTIONS"? 

2?5 PRINT 
270 IN°UT Z> 

2 C 0 IF ?$ = "N0" THFN 4?0 
2P0 IF ?.$ = "* FS" THFN 320 
000 r 0SU* I960 
■*10 GOTO 240 
320 PL0T^rPLCT7:°L0T12 

32? PPJNT" THIS IS A G AMF' OF *0ULrTTF. Yo'J A RE ALLOWED TO BF-T ON*’ 

330 PFINT“AN V 'OR ALL) OF THF FOLLOWING: V.HFTHFK A NUMBER IS Opr OR ^VFN," 
340 PPINT"C0L0R (PRD OR PLACK) OF TIE N’.’MPFR, A COLUMN OF NJM*F3>S," 

? c 0 PP IN" - ",* NUM^vp ITSELF. NUMPERS RANG. FROM ? TO 3?. TF A C A-PEARS," 

360 PR INT"T ff F RANK COLLECTS ALL EFTS FXCFPT THOSE ??T ON rHF JUMBF 1 -' 0." 

262 PR I NT:PRINT 

365 PRINT"THT PAYOFFS A c 7 AS FOLLOWS:” 

? <7 0 PR INT"0r E OF FVFN 1 TO l" 

3C0 PRINT"RED OR PLACK l TO l" 

700 FRINT"A COLUMN 2 TO l" 

4^0 PRINT’A NUMBER 35 TO l" 

405 PRINT 

410 PMNT" YOU ARE ALLOWED TO BF? FROM $1 TO $10,200, TP?" 

420 PR I NT"TABLE WILL ONLY ACCFFT BF1S Os WHOLE DOLLARS.” 

425 PRINT 

430 P°INT”(TF YOU WANT TO EFT CHANGE—GO USE THF S101 MASKIN'” 1" 

4^0 PRINT ’HIT THE SPACE PAR * HEN YOU ARE READY" / 

P1=PNT( 1 ^: IF INP( 1)096 ?R P \ 470 / 

4P0 GOSUB c 000 :PEM PPAV THF TABLE / 

?^0 PFM TAXF TH* PFTS 

501 FI0T3: D LOT0:PLOT10:FLOT?:PL077 

c 02 FRINT" 

K 07 G0S T ’P ?30-e 

?04 GOSUP 6500 

505 PL0T1 

510 PLOT?:PLOT?P 

520 PLOT? :PLOT0:PLOT20 

530 PRINT”PLACF YOU? PETS" 

c 40 FOP Jl=l TO 500:NEXT J1 

550 PLOT? :PL0T2 

560 PLOT? :PLOT0:PLOT20 
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57? PH IN'T‘ PLAC? YOU? PFTS" 
5 C 0 PF^ ODD? 

59? FL0T6:PL0T1 

500 PL0' r '* :PL0T4:?L0T24 

510 INPUT"- * A$ 

520 IF A$="NO" THFN 760 
5**0 IF A$-"YFS" THFN 560 
54 0 GOSUP 1950 
54? PL072 :FL0T4:PL0T24 
544 ppint" 

5 C 0 GOTO 500 
550 PF” GE* AMOUNT 
555 P*=-"CPD" 

570 PLOT? :PL0T9:PL0T24 

5p? input"$";h 

5P0 IF 9^=10000 THFN 720 

700 GOSUP 1980 

r *?? PLOT? :PL0T9:PL0T?4 

704 ppint" 

'’IP GOTO 570 

720 IF ?.<? THEN 740 

7'*0 IF H=INTfH) THFN 95e 

740 GOSUP 2010 

750 GOTO 70? 

750 PFM PVFN? 

770 PLOT?:?L0T5:PL0T28 

7p0 lNPU T "-";Pi 

790 IF P$="NC" THFN 930 

P00 IF F$“"YFS" TPFN 9?0 

810 GOSUP I960 

812 PLOT?:PL0T5:PL0T28 

®i4 ffint" 

F?0 GOTO 770 
P’P SF-M G*T AMOUNT 
835 P$ = "FVF\''' 

840 PIOT? :PLOT10:PI0T28 

c 50 input’Vjh 

550 IF P<=10000 THEN 890 
870 GOSUP 1980 
872 PL0T3 tPLCTIP:PLOT28 
874 PPINT" 

PP.0 GOTO 840 

P90 IF H<0 THEN 910 

900 IF H=IN T f H) THEN 950 

oi0 GHpUP 2210 

920 GOTO 672 

9^0 PFM NO 0 r D/FVFN BFT 

P40 H=0 

950 PFM PEL? 

950 PLOT? :PL0T4:°L0T32 
070 INPUT'*!C$ 

98e IF C$^"NO" THEN 1120 
990 IF C$=”YFS" T 3 F\' 1022 
1000 GOSUP I960 
1*0? PLOTT:PL0T4:°L0T32 
1004 ppint" "; 

1010 GOTO c 50 
1020 PFM G?* AMOUNT 
1025 P$="pEP" 

1030 PLOT?:PL0T9:PLOT32 

1040 input"$";i 

1050 IF I<'=10000 THFN 1080 
1050 GOSUF 19Pe 
105? PL0T3:PL0T9:PL0T32 
1054 PPINT" 

1070 GOTO 1030 

1080 IF l<% THFN 1100 

1090 IF I = INT(I) TH F N 1240 

1100 GOSUP 2010 

1110 GOTO 1052 

1120 PFM PLACE? 

1122 PLOT?:PL0T5:FL0T35 

1124 in?ut"-";c$ 

1125 IF C$="NO" THFN 1220 
1128 IF C$="TES" THEN 1136 
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1130 GOSUP 1=6? 

1131 PI0T3:?L0T6:PL0T35 

113? PRINT" "; 

1134 GOTO 11?2 

1136 RFM GFT AMOUNT 
113P D$="BLA CK" 

1140 PLOT 3:PL0T11:PL0T36 

114? INPUT"i";i 

1150 IF I<'=10000 THEN 1180 

1160 GOSUP I960 

1162 PI0T3:FL0T11:PL0T36 

1164 FPINT" 

1170 GOTO 1140 
11 c 0 IF I <2 TEFN 1200 
1190 IF I=IMT(I) THEN 1240 
1?00 GOSUP 2010 
1210 GOTO 116? 

1220 REM NO PEIVPLACK PF'*' 

1230 1=0 

1240 RFM COLUMN? 

1250 PLOT3:PLOT7:PLOT40 
1260 INPUT"-”;Pl$ 

1270 IF Pl$="NO” THEN 1490 
1260 IF Bl$="YEf" T^EN 1310 
1290 GOSUP 1=60 
1292 PLOT3:PLOT?:PLOT40 
1294 P®INT" "; 

1300 GOTO 1250 

1310 PI0T3:PL0T7:PLOT40 

1320 INFUT"l-2 OR 3?”;B2 

1’30 IF P2>0 THEN IF B2<4 THEN 1400 

1340 PIOT3:PLOT7 : PLOT40 

1345 PL0T6:PLOT79 

1 T 50 PRINT"l-2 OR ’ i ?" 

1360 FOP Jl=l m O 500:NETT J1 
1370 PL0T3:PL0T7:PLOT40 
1380 FLOT6;PLOTl 
1390 PRINT" 

1395 GOTO 1310 

1400 REM GFT AMOUNT 

1410 PL0T3:PLOT17:PLOT40 

1^20 INPUT" $";BP 

1430 IF BP'=10000 THEN 1460 

144? GOSUP 1980 

1442 PLOT3:PLOT19:PLOT40 

1444 PRINT" 

14 c 0 GOTO 1410 

1460 IF BP<0 THEN 1460 

1470 IF BF=INT(B8) THEN 1510 

1480 GOSUB 2010 

14e2 GOTO 1442 

1490 REM NO COLUMN PET 

1500 BF=0 

1510 REM NUMBER BET? 

1520 PLOT3:PLOT?:PL0T44 
1530 INPUT"-";E$ 

1540 IF E$="NO" THEN 1790 
1550 IF Fi="YFS" THFN 1580 
1560 GOSUP I960 
1*62 PL0T3:PL0T7:PL0T44 
1564 PRINT" "; 

1570 GOTO 1520 
15P0 PL0T3:PL0T12:PL0T44 
1590 INPUT"0-36?";F 
1600 IF F^e THEN 1630 
1610 IF F>36 THEN 1630 
1620 IF F=IVT(F) THEN 1670 
1630 PL0T3:PL0T1?:PI0T44 
1635 PI0T6:P10?79 
1640 ?RINT"0-36?" 

1650 FOR Jl=l TO 500:NFXT J1 
1652 RLOT3:PL0T12:PL0T44 
1654 PL0T6:PL0T2 
1656 PRINT" 

1660 GOTO 159e 
1 c 70 REM GET AMOUNT 
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170? PI0T3 : PI.OT20: PL0T44 

I'M? input"$"?g 

172? IF G*'-10000 THEN 1750 
173? GOSUB 19P0 
173? PL0T3 :PLO' T ’?0 : PLOT44 
1734 PRINT" 

174? GOTO 170? 

1 7 5? IF G90 THEN 177? 

175? IF G*INT(G) THEN 2040 
177? GOSU* 2?10 
l'W GOTO 173? 

17p? R'EM NO NUMPEP BET 
10?? g=? 

181? GOTO 2?50 

195? PL0T3:PLOT0:PL0T4 

1952 PI0T5:FL0T79 

1954 PP IN T "PLEASE!1 YES OR NO"? 

195e FOP Jl = l TO 5?0:NEXT J1 
loo? ®L0731 PLOT?i PLOT 4 
197? PLOT5:PL0T1 
1974 PRINT" 

1978 RFTURN 

198? PLOT3:PLOT0:PLOT4 
1982 PL0T5:PL0T79 

1984 PPINT"HOUSF LIMIT IS $10,0??!!"; 

19P5 FOR Jl=l TO 5??:NEXT J1 
1988 PLOT3:PLOT0:PL0T4 
199? PL0T5:PL0T1 

199? print" "; 

2 ??e return 

?01? PLOT3:PLOT?:PL0T4 
?01? PL0T5:PL0T?9 

??14 print"fut.l dollar bets only please" 

??16 FOP Jl=l TO 5?0:NEXT J1 

2017 PIOT3:PLOT0:PLOT4 

2018 PLOT^:PL0T1 
2?2? D PINT" 

?03? RETUPN 
2?4? REM 

??5? REM 

207? T=INT(37*RND(F+R+I+B8*B2+G)) 

??8? REM THF NUMBFR IS 
2?9? T1=INT ( T/10)+l 
??91 11=1 
?092 GOSUB 900e 

2093 1=11 

2094 PLOT3:PLOT0:PLOT10:PL0T5:PL0T15 
21?? ON T1 GOTO 2110,2120,2130,2140 

2110 ON T+l GOTO 2390,221?,?29?,225?,227?,2232,221?,221?,2290,2252 
212? ON T-9 GOTO 2270,2350,2190,?53?,2170,237?.215?,235?,219e,221? 

213? ON T-19 GOTO 2?°0,2250,227?,2230,231?,221?,2170,237?,2270,2350S"OP 
214? ON T-2S GOTO 2190,2230,217?,2370,2150,235?,2190 
2150 PRINTT;” PED,EVEN,COLUMN 1" 

215? GOTO 2400 

217? rrintt?" RED,EVEN,COLUMN 2" 

2180 GOTO 240? 

219? PRINTT?" PED,EVEN,COLUMN 3" 

220? GOTO 240? 

??1? PRINTT;" PED,ODD,COLUMN 3" 

222? GOTO 240e 

223? PPINTTJ" RED,ODD,COLUMN 2" 

224? GOTO 2400 

225? PRINTT?" RED,ODD,COLUMN 3" 

228? GOTO 24?? 

227? PRINTT?" BLACK.EVEN ,COLU M N l" 

2?8? GOTO 2400 

?2S? PRINTT?" BLACK,FVEN,COLUMN 2" 

230? GOTO 2400 

2'*1? PRINTT?" BLACK,EVEN.COLUMN 3" 

232? GOTO 240? 

? , 3? PRINTT?" BLACK .ODD,COLUMN l" 

234? GOTO ?4?0 

?35? FPINTT?" PLACK.ODD,COLUMN 2" 

?35? GOTO ?4?0 

?**7? PRINTT?" BLACK ,^rD,COLUMN 3" 

?'*8? GOTO ?*?e 
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?' , pe ppint"t u f nu*ffp if ?" 

?4?P PL0T3:?LOT60:PLOT?? 

?4?l PIOTF: PI.0T79 

24P? PPINT"BFTTH'G Rvcrj L <ps" 

24 ?3 TQF 09=1 TO 5??:\r Y T 09 

24?4 PLOT6:PL0T2:PLOT?:PLOT50:PLC"20 

?4pc ?PINT"PFTTING d I? t Jlts” 

?4?c jy r T =e THFN 24?? 

241? IF T =r ''’HFN 245? 

24?? C=-C 
24 4? GOTO ?4 r5 ? 

245? PF M 

?4F? 0=? C *G 

247? IF °=P TEEN ?**? 

24 C P IF T=2 THFN 25^? 
pipe IF p£ = "EVFN" THF\’ 254? 

25?? T 0F Tri to 35 ST r P 2 
2 R 1? IF T=X THFM 251? 

252? NF T T ▼ 

2*3? GOTO 25?? 

254? FO® XI=2 TO 35 ? T E“ 2 
255? IF T=X1 THEN 2^1? 

255? NEXT XI 

pA7? °F v 

2592 H=-H 
2*1? ®Ff 

252? IF F $= ”?VFN” THFN 2c4? 

2?3P PLOT^:PL0T53:-L0T24 
2*35 GOTO 2542 
254? P10T' T :FL0T54: PICT28 
2*4? IF H<T 2545 

2544 c IOT*:PLOT? 

2545 GOTO ?*!:? 

2*46 PLOT*:PL0T1 
255? FMNT" $”;p 
255? IF I=? THEN 254? 

2*7? IP T = C <r HFN 294? 

?FP? POP A1=1 TO 9 ETFP 2 
2*9? IF T=A1 THEN 293? 

?7?P MF?' 1 ' A1 

?71? POP A2=l? 70 IP FTFP 2 
272? IF T=A 2 THEN 292? 

273? NFXT A2 

274? T 0F A3=l° TO 25 STEP 2 
?7?p IF T=A ? THFN 292? 

276? SFTT A^ 

2*77? TOP A4=2? TO 35 FTE? 2 
?7p? IF T=A 4 TFFN 2930 
279? NFX' T * A4 
2P?? IF T=2* THFN 293? 

?®1? IF E$="PLACK m THEN 2P9? 

?o?? GOTO 2940 

?P?P II D^Fir” THEN 29P0 

? c 4? PF^ 

206? i=-I 
? C P? PF^ 

2P90 IF Ci= "FLACK" THFN 292? 

2o?C PI,0T?:PL0T53: PLCT32 
201? GOTO 293? 

2°2? PI0T3:PL0T55:FL0T35 
?°3? IF K? THFN ?9' e 
2032 PL0T5:PLOT? 

2934 GOTO ?9?9 

29”*5 PL0T*:?L0T1 

2939 FPINT" $";i 

?°4? IF E?=? THFN 3212 

295? IF T=e THEN ’If? 

2960 tqp ?3=1 TC 24 STFP 3 
707 ? IF T=B3 THFN 3050 
296? ntt? P3 

299? tqt P4=2 TO 35 STF? 3 
3??? IF T=E4 THEN 3*?? 

3?1? NET? F4 

3?2? tqt> pc_3 TO 35 5 tt p 3 
3?3? IF T=E5 THFN 3092 
304? NEXT F* 
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3?6? IF P2 = l TRPN 311? 

2?6? IF F201 THFN 316? 

■'Qnv iy P2-? THEN 311? 

328? JP ?2< >2 T°p\ 3160 
2?9P IF B2=2 TFFN 311? 

312? IF B2'\? THEN 316? 

311? PF M 

**13? DfV 
314? T>c=?*pp 
315? GOTO 32?? 

316? PF* 

319? pc=-pc 

32?? IF PF^e TFFN 22e c 
32?2 PL0T6:PL0T2 
?2?4 GOTO 3£?° 

32?6 PIOT*:PLOTl 

3"?8 PLOT?:PLOT66:FI0T42 

321? PRINT" *":B8 

3212 IF G=? T°FN 322? 

3213 IF G<'? THFN 3216 

3214 PL0 T ^r PL0T2 

3215 GOTO 3219 

3216 PL0T6: PLOTl 

32IF PLOT?:PL0T66:PLCT44 

3219 print" $"?« 

322? PLOT?:PLOT6 C :PLOT1Z 
???? PRINT*’ 

3235 KP=K9+G+H+I+R8 
324? IF THFN 327? 

•*26? PL0T^:PL0T2 
326? GOTO 328? 

327? c L0T6:PLOT1 
328? PLOT?:PL0T6P: PLOTl? 

329? PPINT" r'**K9 

40 c? FOP 11=1 TO 2?0?:NFXT II 

4 pcc GOTO 5?? 

409 c ngp 

5??? t>E M DPAV THE BOARD 

5?1? ^L0T6:PLOT7:PLOT 15:PLOT12 

6?4? PL0T6:FL0T56 

525? PLOT?:PL0T35:PL0T47 

6 ?^? jot? 1^1 to 11: PL0T32: NEXT I 

K ? 8 ? FOP 1 = 4* TO 2? ST 0 -2 

5?9? PL0T?:PI0' T ’25: FLOT I 

51?? FOR J=1 TO 11:PL0T32:NEXT J 

c 12? NFXT I 

614? PL0T?:PL0 T 35:FLOT17 

616? FOP 1=1 TO 11:PLCT32:NF <T I 

618? FOP 1=2? TO 44 STFP 12 

6 ??? PL0T3:PL0T29:PL0T I 

622? FOP J=1 TO 2?:PL0T32:NFXT J 

623? NFXT I 

6236 FOP I = ? c ,P C 52 STEP 24 :PEV STAR? VERTICAL 

c 24? FOR J= 4 A TO 2? STFP-1 

C 2 C ? PLOT?:PLO' r I: PLOT J 

529? PLOT32:NEXT J 

63?? NFXT I 

c 32? POP 1=34 TO 46 STFP 12 
574? FOP J=17 TO 47 
6^0 PLOT?:PLOT I: PLOT J 
c ? 8 ? PI0T32:NPXT J:NPXT I 
54?? FOP I=? c TO 42 STEP 4 
5*2? FOR J=20 T"» 47 
544? PLOT?:PLOT I:PLOT J 
6 *^? PLOT32:NEXT J:NFXT I 
66 ?? RFN* LABFL THE BOARD 
*52? PLOT:PL0T2? 

554? FOR 1=20 TO 47 STFF 18 

556? FOR J*21 To ?1 

*5P? PL0T2:PLOTl:PLOTJ 

659? FOP K=1 TO 5:PLCT22:NFXT K 

6 C ?? NEXT J:NEXT I 

661? PC® 1=18 TO 19 

6615 PLOT2:PLOT35:PLOTl 

6*2? FOR J=1 TO 11 

5*4? PI0T32:NEXT J:NFXT I 
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S65P FOP 1=45 TO 46 

6*60 for j=' , e to 43 step 4 

5*70 PI0T3:PL0TJ:PLOT! 

5680 POP X=1 TO 3s FL0T32 sNEXT K 

5690 NEXT J:NEXT I 

6 r ’00 PLOT3:PLOT40 sFLOT19s i, FINT"0” 

5710 PLOT3sFLOT30s PL0T25 sPFINT"E7EN" 

c 720 PLOT3 : PL0T48 : PL0T2* : PRINTED!)" 

6730 FO D 1=35 TO 43 STEP 4 

5740 PLOT3 :PLOTI:PLOT45 

c 7 50 °RINT"COL"sNETT I 

57*0 PI0T3:FL0T3S:PL0T46 

5765 K=0 

5770 FOP 1=35 TO 43 STEF 4 
R 7p0 K=K + 1 

5790 P!OT3:PLOTI:PLCT46 


5800 PPIMTK 

5610 NEXT I 

5 C 20 PIOT6:PL0T7 

5630 PL0T3s PL0T29: D L0T36 

6 C 40 PPINT"PLACX 

5850 PLOT5:PLOT15 

5960 FOP 1=33 TO 43 

5870 PI0T3:PL0T47:PLOTI 

6Pe0 FOP J=1 TO 5:PL0T32sNEXTJ 

6690 NFXT I 

6900 ?I0T3:PL0T4P:PL0T3£:PRINT" 
5910 PL0T3:PL0T35:PL0T21:PPINT” 
5912 PL0T3:PL0T43:PL0T21:PPIMT” 
6914 PI0T3:FL0T39 : PLOT'23 s?R INT" 
6016 PL0T3:PL0T35:PL0T25:PFIN?" 
5918 0 LOT3: PLOT43: PL0T25 :P?.INT" 
5920 FI0T3:PL0T43:PL0T27:PPI NT" 
r o? 2 PL0T3:PL0T39:FL0T29:PRINT" 
5924 D L0T3:PL0T35: PL0T31: PR I NT” 
592* FI0T2:PL0T43:PL0T31sPPINT" 
5928 PL0T3:PL0 ,f 35:PL0T32 sPPINT" 
6°30 PL0T3:PL0T43:PL0T33 sPPINT" 
5932 PI0T3:PI0T39:PL0T35:PRIN m " 
5034 PL0T3:FL0T35:PL0T27 sPPINT" 
R 93 c PLOT -1 :PLOT39: PL0T37 :PRINT" 
5938 FICT3sPL0T43:PL0T39SPRINT" 
5940 PLOTS:PLOT39 :PLCT41 .-PRINT" 
5942 PL0T3:PL0T35:PL0T43:°RI NT" 
5944 ?L0T3:PL0T43:PL0T43 sPRINT*' 
5946 PI0T6:PL0T7 
6950 PL0T3:PL0T39:?L0T21sPFINT" 
50*2 PI0T3:PL0T35:PL0T23SPRINT" 
5954 PLOTS:PL0T43:PL0T23:PFIN?" 
R 956 PLOTS:PL0T39sPL0T25sPRINT" 
5968 PLOTS:PL0T35sPL0T27SPRINT" 
5Q60 PLOTS sPLOT39:PLOT27sFR I NT " 
5898 PLOTS:PL0T35:PL0T29sPRINT" 
5964 PI0T3:PL0T43:PL0T29SPRINT" 
5966 PL0TS:PL0T39:PL0T31SPRINT" 
59^8 PL0T3:PL0T39:PL0T33sPPINT" 
5970 PL0T3:PL0T35:PI0T35:PRINT" 
5972 PL0T3:PL0T43:PL0T35sPRINT" 

5974 PLOTS:PL0T43:PL0T37 sPRIwt" 

5975 PIOT3:PLOT35:PLOT39SPRINT" 

5976 PL0TSsPL0T39sPL0T39SPRINT" 
5978 PLOTS:PLOT35sPLOT41sPRINT" 
5980 PI0TSsPL0T43:PL0T41sPPINT" 
5982 PL0T3:PL0T39 s PLOT43 :PF IN” **35 
5990 RF*I FND OF BOARD 

6000 FEM PLACF TEXT 

6010 PL0T6sPL0T2 

*015 PL0T146 

37399 3 : PLOT0:PLOT20 

6040 PP INT’PLACE YCUR BETS ** sPRINT 

6050 PRINT"OPD"sPRINT 

60*0 PPIN?"FVIN"sPPINT 

6070 PFINT"REL":EPINT 

6080 PPINT’BLACX sPRINT 

*090 PRINT"COLUMN"sPRINT 


FED 
1 " 
3 " 

c " 

7 " 
9 " 
12 " 
14 " 
16 ” 
1 ° " 
19 " 
21 " 
23 " 

25 " 

26 ” 
30 " 
32 " 
34 " 


31 

S3" 
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eiee print"numpep" 

6110 PLOTS:PLOT60:PLOT20 

*120 print’*petting results’* 

*130 p L0T2:PLOT*0:PL0T24 
6140 PPIMT'orD” 

6150 PLOTS:PLOT60:PL0T2P 

ei60 p p int’even" 

61 70 PLOT3:PLOT*0:PL0T32 
*180 PPINT’pf D*’ 

6190 PLOTS:PLOT60:PLOT36 
6200 PRINT* BLAC V " 

6210 PLOT3:PLOT60:PLOT40 
6220 PPINT"COLUMN " 

*722 PLOTS:PLOT C 0:PLOT44 
6224 PRINT"NUM?FR" 

6230 PLOT?:PLOT0:ILOT 10 
*250 PLOTS:PLOT60:PLOT 10 
6260 PRINT'FALANCF $0" 

*270 PLOT16 :PL0T6:PLOT? 

6260 RETURN 

6300 REM CLEAR THE PET AREA 
6S10 PLOT6:PL0T7 
*320 PL0T3:PL0T3:PL0T24 
6330 PRINT” 

6340 PLOTS:PL0T4:PLOT28 
*■*50 PRINT" 

6360 PI0T3:PL0T3:PL0T32 
6370 PRINT** 

*380 PL0T3:PLOTS:PL0T36 
6390 PRINT” 

6^00 PLOTS:PLOT6:PLOT40 
6410 PRINT" 

6420 FL0T3:PLOTS:PL0T44 
6430 PRINT" 

6440 RETURN 

6600 REN CLEAR THP RESULTS AREA 
6*10 PLOTfrPLOT? 

6520 PL0T3:PL0T63:PL0T24 
6530 PRINT" 

6540 PLOTS :PLO' r 64: PLOT28 
6550 PRINT" 

6560 PLOT3:PLOT63:PL0T32 
6*70 PRINT" 

6580 PLOTS:PL0T65:PL0T36 
6590 PRINT" 

6*e0 PL0TS:PL0T65: PI.OT4 0 
*610 PPINT** 

*620 PI0T3:PL0T66:PL0T44 
6630 PRINT*’ 

6*40 RETURN 

9000 PE* SPIN THE PALL COUNTFR CLOCKWISE 

9005 PLOTS:PLOT80:PLOT0 

9010 PL0 T 2:PL0T253:PLCT V :PLOTY 

9020 ROR 1=1 TO 2 

9030 FOR K=1 TO K* 

9035 REM PLOT THE tfHITI PALL 

9040 PL0T255 :PI,OT*: PLOT? : PL0T2 :PL0T25S 

9050 PLOT XI (E):FLOT Y1(T' 

8060 REM PLOT TRF BLACK PALL 

90^0 PIOT255:PL0T6:PLOT0:PL0T2:?LO T2 5S 

9080 PLOT XI (K):PLOT T1(K) 

9090 NF T T K:NEXT I 

9095 PEM PND OF CCb SPIN 

9100 R£M SPIN ONCE CW 

9110 PLOT255:PLOTS:PLCT60:PLOTC 

9112 PIOT*:PL0T7 

9115 PL0T2:PL0T253:PLOTX:PLOTY 

9120 FOR I=K4 TO 1 STFP-1 

9140 PI0T255:FL0T6:PLOT?:FL0T2:?L0T253 

916e PL0TX2(n 

9170 PL0TT2 ( I) 

9160 RL0T255:PL0T6:PLOT0:PL0T2:PLOT253 
9190 PL0TX2 (I) 

9200 PL0TT2 ( I) 

9210 NEXT I 
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P222 PL0T255:PL0T6:rL0T7 
P232 RE*' FND OF SPIV 
9242 RETURN 

12020 PF M CALCULATE THE PATH OF T3P EA’L 
12212 DIM XI f=4) ,Yl(f4) 

1201? PIP X2(54),Y2(54) 

12222 Sl-12:!Tl=e:iC2=158:X3=Sl:K4=2 

12232 TX=?2:YY=30 

12035 X3-17:Y3=27 

12242 HIM CINTFP OF WHEEL 

12052 Y^eO^lPe 

120*2 POP YK=1 TO 4 

12272 IF KK02 then 12290 

120P2 XX--XX:K1=15P:K2=0:X3=-S1 

120P5 X3=-X3 

100P2 IF KK03 THEN 12110 
10122 YY=-YY:K1=0:K2=158:X3-S1 
12125 Y3=-Y3 

12110 IF KK04 THEN iei30 
12120 XX*-XX:Xl-15 fl :K2=C:T3=-Sl 
12125 X3=-X3 

12130 FOP I=E1 TO K2 STFP X3 

10140 A=I*.01 

12150 X4=F4+1 

10150 XI (K4 ;=X+XX*C0S(A) 

12170 Yl(X4l=Y+YY*SIV(A) 

12172 T2(K4)=X+X3*C0S(A) 

10174 Y2(E4 '=Y+T3*SIN(A) 

12190 NEXT I 
12190 NFXT KX 
121°2 RETURN 

10195 RIM END OF CALCULATION 



Chapter 12 


Child’s Play Number 
Game for Beginning 
Micro-Bugs 

By Karen S. Wolfe 


Anyone with the remotest knowledge of computers realizes their 
great educational possibilities. But you seldom see an elementary 
program for just that purpose—to educate the young. So here’s a 
quick program that serves two purposes: to provide a mathematical 
game for youngsters just learning about numbers, and to provide a 
short, easy program with which beginning programmers can 
experiment. 

WHAT DOES IT DO? 

The program initially asks the child to enter a number between 1 
and 10. Of course, most children won't be able to read the question 
right away. You must guide their way through the game the first few 
times. You’ll probably be surprised how quickly the child catches on 
to the questions and the feedback. So another purpose is served: 
teaching the child the necessity of learning to read. 

Now numbers other than those between t and 10 can be entered, 
but it is best to start with small numbers. Suppose the child enters a 4. 
The program will then display four stars (★) on the monitor, followed 
by the number “4”. Then, on the first pass through the program, one 
star followed by a “1” will appear below the four stars. This provides 
the child with a visual display of a set of "4” objects and a set of “1” 
object. 

Next, the program asks the child to enter the answer for 
4 +1 = ? in algebraic form and also 
4 

1 in column addition form. 

? 
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The visual set of stars is still on the screen, so the child will initially 
count all the stars to arrive at an answer. As the child begins to 
associate numerals with the concept of so many objects, you can 
rewrite the program so that the stars are no longer printed (see the 
section on experimentation following). 

When the child enters an answer, the program checks to see it is 
the right answer. If it is right a series of stars is printed and the 
message “YOU ARE CORRECT—YOU WIN!!!”. If the answer is wrong, 
the feedback is “SORRY, THE ANSWER IS NOT CORRECT, TRY 
AGAIN!” Even if the child cannot yet read, he or she soon learns these 
responses and their meanings with just a little help from you. 

When the child’s answer is wrong, the problem is repeated. When 
the answer is correct, the program automatically forms a new problem 
if the child wishes to play another game. The program continues to 
use the 4 which was originally input, but on the second pass through 
it asks the child to add a “2” to the 4. On the third pass it adds a “3” 
and so on through six passes. At that point, the program will ask the 
child if he or she wants a different input number and if he wants to 
play another game. 

EXPERIMENTATION 

The accompanying program is short and uses a number of “FOR- 
TO” loops, “IF-THEN ! S” and “GOTO’s” to accomplish its objectives. 
The beginning programmer should be able to follow the steps with 
just a little study and then be ready for some experimentation of their 
own. 

First of all, this program was written for North Star BASIC in which 
multiple line statements are separated by “\”. In this program, they 
are used only to separate PRINT statements which are used for spac¬ 
ing the screen displays. 

The C variable is the number entered by the child. The K variable is 
the internal number which is added to C. When the program is first 
started, K is set at zero (line 20). In line 60, K is increased by 1. In each 
successive pass through, the program is cycled back to line 60. When 
K finally equals 6, the program jumps out of that loop at line 360 and 
goes to line 400. Now the child is asked if he wants to enter another 
number for a new game. If he answers yes (Y), the program goes back 
to line 20 where K is again set at zero. 

The beginning programmer can start trying his own ideas for chang¬ 
ing this fundamental program. For instance, suppose you want to 
eliminate the stars from the display. You could simply delete lines 70 
through 150. Perhaps you wish to change lines 190 and 200y/hich 
form the column addition format in the North Star BASIC. Maybe^your 
BASIC has a different format procedure such as a PRINTUSING 
statement. 

Another possibility is to change the mathematical operation from 
addition to subtraction, multiplication or division. You must make 
several changes throughout the program. You’ll have to make the ap- 
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propriate operational sign changes in lines 170 and 220. You’ll prob¬ 
ably also wish to eliminate the stars, lines 70 through 150. 

If you really want to get playful, you can devise a scoring system 
with a new variable, call it S, and set it initially at 100. Then each time 
the child answers a problem correctly, 10 is added to S and for each 
wrong answer, 10 is deducted. This might be done by adding the 
following statements: 

15 LETS =100; 253 LET S = S -10;318 LETS = s + 10; 
352PRINT;353PRINT“YOUR CURRENT SCORE IS NOW”,S. 

You may have a better way of setting up a scoring routine. Go 
ahead, experiment. It’s the best way to learn programming. But do let 
your youngster have a crack at playing this number game once in a 
while. Remember, micro-bugs come in all sizes. 

SAMPLE RUN 

THIS T8 A NUMBER GAME: 

ENTER A NUMBER FROM 1 TO 10 0 

XXX)K 
* 1 . 

ENTER THE ANSWER FOR* 4 + 1= ? 

' 1*00 

1.00 


XXX X.XX XXX XXX XXX XXX XXX XXX 

XXX XXX XXX XXX XXX XXX XXX XXX 


YOU ARE CORRECT-YOU WIN ! ' ' 

XXX XXX XXX XXX XXX XXX XXX XXX 

XXX XXX XXX XXX XXX XXX XXX XXX 

DO YOU WANT ANOTHER CAME'* < Y/N) Y 

X X X X * 

x * 2 

ENTER THE ANSWER FOR * 4 2 ~ ? 

4.00 

2*00 

?7 

SORRY* THAT ANSWER IS NOT CORRECT t TRY AGAIN! 

X X X X ^ 

x x 2 

ENTER THE ANSWER FOR? 4 * 2. ~ ? 

4.00 

2.00 

?6 
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xxx xxx xxx xxx xxx xxx xxx 


*** xxx xxx xxx xxx xxx xxx xxx 


YOU ARE. CORRECT-YOU WIN ■ ' ' 

xxx xxx xxx xxx xxx xxx xxx xxx 


xxx xxx xxx xxx xxx xxx xxx xxx 


DO YOU WANT ANOTHER GAME? (Y/N) N 


DO YOU WANT TO ENTER ANOTHER NUMBER AND PLAY AGAIN? 

(Y/N) N 
READY 


PROGRAM LISTING 


LIST 1 

10 DIM Z*<2> 

20 LET K :: =0 

30 PRINT “THIS IS A NUMBER GAME" 

35 PRINT'S PRINTS PRINTX PRINT 

TO INPUT "ENTER A NUMBER PROM L TO 10 "-C 

50 PRINTS PRINT 

60 LET K=K+1 

70 FOR I ~ 1 TO C 

SO PRINT "* '» 

90 NE XT T 

I. 00 PRINT " “ tC 

II. 0 PRINT 

120 FOR 1=1 TO K 
130 PRINT "* *- 
1/10 NEXT I 
1.50 PRINT " " *K 

1.60 PRINT 

1.70 PRINT "ENTER THE ANSWER FOR * * C■ " ♦- “ *K* “ * H « ‘ ?" 

180 PRINT 

190 PRINT %5F2rC 

200 PRINT %SF2»K 

21.0 INPUT A 

220 LET A1 » C + K 

230 IF A - A1 THEN 270 

240 PRINT 

250 PRINT "SORRY * THAT ANSWER IS NOT CORRECT* TRY AGAINf“ 

255 PRINTS PRINT 

260 GOTO 70 

270 FOR I “ 1 TO 2 

280 PRINT " xxx xxx xxx xxx xxx xxx xxx xxx “ 

285 PRINT 
290 NEXT I 
300 PRINT 

31.0 PRINT " YOU ARE CORRECT YOU WIN ! • • " 

320 PRINT 

330 FOR I * 1 TO 2 

340 PRINT " xxx xxx xxx xxx xxx xxx xxx xxx * 

345 PRINT 
350 NEXT I 

360 IF K > 5 THEN 400 

370 PRINT - - - -—- 

380 INPUT " DO YOU WANT ANOTHER GAME? (Y/N) -.7* 

390 IF 7% ~ "Y" THEN 60 

400 PRINTS PRINTS PRINTS PRINT 

410 PRINT "DO YOU WANT TO ENTER ANOTHER NUMBER AND PIAY AGAIN?" 

420 PRINT 

430 INPUT "(Y/N) 

440 IF Z* * "Y" THEN 20 

450 END 

READY 




Chapter 13 


On A Bi-Lingual 
Math Tutoring Program 

By Marvin Mallon 


All forms of programming are challenging and unquestionably, if 
success follows, create a strong feeling of accomplishment. There is 
a special sense of gratification, however, that can be identified with 
writing educational programs. The thought of making the computer 
serve as a tutoring appliance for the school child is quite inspiring. 
We are certainly on the threshhold of having the microcomputer serve 
the needs of the business community as it never has before. We will 
also soon see the influx of personal computers in the home in 
numbers undreamed of five years ago. Surely then, one of the more 
worthy causes to be served will be the teaching of the young. 

Of course, a lot has happened in this area already, most notably in 
school districts in Northern California, due to the prodding and 
patience of Albrecht, Verplank, et al. The proximity of Hewlett- 
Packard, Digital Equipment Corporation and IBM has not been wasted 
in the San Jose-Palo Alto school districts, and Los Angeles teachers, 
if not in fact the rest of the country, look in envy to their achievements. 
Hopefully, it is only a matter of time before educators everywhere find 
the means to enhance classroom activities with the aid of the small 
computer. 

A specific area worthy of extra attention is in dealing with minority 
students. The Los Angeles Unified School District is responsible for 
the formative education of thousands of such children, and it en¬ 
counters special problems where language is a barrier. The computer 
can help. This article demonstrates that a start has been made and 
urges greater participation elsewhere to produce constructive pro¬ 
grams aimed at overcoming language differences as an obstacle. 

Specifically, I wrote a Math Tutoring program which helped my 
daughter and her friends practice basic arithmetic problems. Some 
time later I sold and installed a number of microcomputers into Los 
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Angeles high schools. At one of these schools, San Fernando High, I 
met and worked with Alan Samow who is on the staff of the 
mathematics department. He was delighted to have a copy of my 
tutoring program and in short order, translated it for use by the 
Spanish-speaking students in his classes. This simply required re¬ 
phrasing the prompt messages, but he went on to enhance the 
original program with some fine touches of his own. Following this ar¬ 
ticle is a listing of both the English and Spanish versions with a 
typical run of the Spanish program included as well. 

The program opens with a personalized introduction that sets the 
mood for the intercourse to follow. It then offers ten problems in 
either addition, subtraction, multiplication or division. The student 
also limits the largest numbers he or she will work with based on his 
or her educational level. Multiplication problems have the further op¬ 
tion of being created with the same repetitive multiplier should the 
student wish to practice his “times table”. An option of the division 
choice is the selection of problems with or without odd remainders. 

Answers are greeted with either criticism or praise dependent, of 
course, on the correctness of the response. These are randomized so 
as to enhance the “personal touch” of the lesson. The student is given 
three chances at the right answer before the program moves on to the 
next question. At the end of the exercise a summary is printed of the 
score and all missed or troublesome problems are recapped. This 
tends to enforce the lesson and hopefully encourages the user to 
repeat difficult areas or go on to larger numbers. 

The reader is not only encouraged to use these programs as they 
appear here, but Mr. Samow and I would be especially gratified if 
others followed our example and translated new or existing programs 
so as to make them suitably usable by a broader group of students. 
Surely nothing can be of greater consequence than the promotion of 
the computer as a learning tool for children of all ages and 
background. 

SAMPLE RUN 

RUN 

HULA, Cl.'AL FS Tl.i NOMOPF ?? GFRATD 

GUSTC FN CON0CFRTF GERAOO. V AMOS A PRACT TPAP 

MATEWATICAH JUNTOS. 

PCDEMOS HAGER RUMAS, RERTAS 
MUUTIPLICACION V niVIRTONER. 

ESCPIRE UN SIMP OLD V HAHFMOS IP PPOPLEMAR 
*■ - X OR / 

CUAL EJFHCICIO ?? + 

VAMQS A TPAPAJOR CON 2 NU»'FROS PIFFR FNTFR 
CUAL SERA LA CANTICAO PFL PPTVFR NUMFRO ?? °p? 

CUAL SERA LA CANT IPAD DEL REPUNCC NtJMFRP? 

ACUT HAY UN PnpPI.EVA PE FUMAR / 

ff 1 a 9P ' 

+ A 

? 5C? 

MU Y EIENM CO NT INU A AS I. 

f! ? 56? 

+ 63 
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? 625 

FOTA CCRRFCTO GFRAOC. TR AT A OTFO- 

i 3 592 

+■ 65 


? 34 

ESTA INCCRRFCTQ GERAPO. 
ft 3 / 59? 

+ / 65 


? 7P5 

ESTA INCOPPECTO GERACO. 

# 3 59? 


? 34 5 

TUS 3. PREPAR TERMINARON—I.C PIFNTOM 
, ft 4 ?71 

+ 61 


? ?3? 

ESTA INCORFECTC OFPAPn. 

!f 4 771 

+ 61 


? 33? 

MUY BIFN! ! CPNT INU A AST. 
5 3P5 

+ 71 


? 376 

ERES MUY INTFLFGNETF. GEPACO. ACtJI TEf.EMOS C T RC. 
ft 6 R5R 

+ 7P 


? 936 

MUY FIEN!! CONTI Ml A AST. 
ft 1 54 3 

+ 47 


? 59? 

EPFS MUY INT ElEGNFTE GFHAPC. AOUI TFNEMOS OTRO. 


0 P74 

+ 64 


? 93R 

MUY PIEN!! CUNTTNUA ART. 
H 9 4 PR 

+ 3P 


? 746 

EPPASTE GERACO. TRATA OTPA VFZ. 
ff 9 4PR 

+ 3P 


? 546 

FSTA INCORRECTO GFPACO. 
ft 9 4 P R 

+ 35 


? 446 

FSTA COPRFCTO GFPAOO. TRATA OTPP- 

ft 13 1(15 

+ A7 


? 17? 

FXCELENTF-FJERCICIO COMPLFT0. 

SLR'AH 

GFPACO TIFNFS 9 CORRECTO Y 1 INCORRFCTCP 
TFINES PPORLEMA.S CON 3 PRCPLE MAS 
TIJ CPAPC ES R? 
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TUVISTE CIFinULTA CON l OF RTGII TFNT FR PP OPLFMAP 
7?1 + 61 . 332 

4(70 + 3 p , 4^16 

HIZIBTE *'Al. FRTPR PROFLFMAS 
592 + 65 = A5? 

TRATAMOS MAP PP OFL FMAS ? 

FscRinr un stmfolc y hapfvps i? profle^ap 
+ - x cp / 

CUAL rdFPCiriO ?? / 

VAPOR A TPAPAJOR CON 7 NUMEPOF DTFFPFNTF^ 

CUAL Ft R A LA CANT IPAT C K l_ PRIMF" NU'-'fPr ?? F9P 

CUAL SEN A LA CANT IT AD OFL PECLTT.C Nti P F P G ? 9 

N 1.1 IFF FR PROPLE *'AR COM PPSIPUD ( S ORR ANT FR ) 

? NO 

AOUI HAY UN PPOFLFVA np OTVTCTON 
A 1 CHANT 0 ER 347 0IVI FT PC POP 6 
? 57 

MUY riEM! CONTINUA ART. 

If 7 01!AMT0 ES 119 PIVIOICC POP 7 

? 17 

FHFC f'UY INTFLFRNFT F GE»ArO. A'-UT TTNFMpK CT«C. 
'! 3 PU ANT C FC 74? PIVTCTPO PpR 5 
? 149 

MUY r : IFM! CONTINUA ART. 

ff 4 Ol. ANTO FR 77 3 PIVTOIPD PPR 3 

? 741 

VUY PTFN!! CONTINUA ART. 

*f 5 rUANTC FF 16? DTVTPIPP PP n P 

rurs MUY TMTFLERNFTK CF^APO. A. n l'I TFNEMOS PTPO. 
ff 6 CUANTO ER °16 DIVIDTDO POP t 
? 136 

MUY BIEN!! CONTINUA ARI. 

H 7 CUANTO ES 387 DIVIDIDO POR 3 
? 129 

ESTA CORRECTO GEPADO. TRATA OTPC_ 

ff 8 CUANTO ER 240 DIVIDIDO POR ‘4 
? 60 

MUY BIEN!! CONTINUA ART. 

ff 9 CUANTO FR 747 PIVIOIPO POR 3 

? 249 

ESTA CORRFCTO OFRADO. TRATA OTPO- 

ft 10 CUANTO FF 570 DIVIDIDO POR 5 
? 114 

EXCFLFNTF-EJFRCICIO COMPLFTO. 

DIVICTON 

GFRADO TIF.MFS 1? CORPECTQ Y P INCORRECTOS 
TEINES PRDOLEVAR CON ? PPGPLEVAS 
TU OR ADO FR 100 

N INRUN ERROR... TF FF.LTCTTO! ! 

T RAT AMOR MAR PEOPLEMAH ? NO 

HASTA L'JEGO POP A HOP A. Tf VEC PRONTO!! 


OK 


PROGRAM 1 


10 REM - MATH TUTOR PROGRAM 

20 REM - WRITTEN 3Y M. MALLON 

30 REM - AUGUST » 1976 

100 REM - OPENING/DIALOG 

110 INPUT "HELLO/ WHAT *S YOUR NAME";A$ 

120 PRINT"GLAD TO MEtT YOU ";A SS"» LET'S PRACTICE" 
130 PRINT"SOME MATHEMATICS TOGETHER." 

200 REM - WHICH DRILL? 

210 PRINT"WE CAN DO ADDITION* SUBTRACTION" 
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220 PRINT"MULT I PL I CATION* OR DIVISION.” 

230 PRINT"TY?E A SYMBOL AND WE WILL DO 10 PROBLEMS:” 

232 FOR L»1T010:P<L>*OxE<L)»0:Q(L>=0:NEXT 

234 L«0 

235 C-Q:N-0J R-O:T-0 

237 FOR K®1 TO 10:F<K>-0:G<K)*0:H<K>*0:NEXT 

238 K-0 

240 °RINT TABOO);"* - X OR *” 

250 INPUT "WHICH WILL IT BE";3i 

270 IF 3i<>"+"AND Bi<>"-"AND 34<>"X”AND Bi<>"»" THEN 240 
300 REM - PICKING THE NUMBERS 

310 PR1NT”WE* LL WORK WITH TWO DIFFERENT NUMBERS" 

320 XNPUT a *HOV BIG CAN THE FIRST ONE 3E”;Nl 
332 IF N1 *<3 OR N1 >1000 THEN 330 
340 INPUT"HOV BIO CAN THE OTHER NUMBER BE”;N2 
352 IF N2*<0 OR N2 >1000 THEN 330 
360 GOTO 400 

380 PRINT”THE NUMBERS HAVE TO BE BETWEEN 1 AND 1000” 

385 PRINT"LET * S TRY AGAIN-" 

390 GOTO 320 

400 REM - GOTO DRILL ROUTINE 

410 IF B*=”+" THEN 600 

420 IF Bi="-" THEN 700 

430 IF B$="X" THEN 800 

440 GOTO 900 

600 REM - ADDITION 

615 S$*”PLUS":R4»"ADDITION" 

620 PRINT”HERE'S AN ADDITION PROBLEM FOR YOU-" 

625 GOSUB 1500 
630 GOSUB 1000 
635 W-A+B 

640 IF X»W THEN GOSUB 3000 
650 IF X-W THEN 625 
660 GOSUB 4000 

665 IF X<>A+B AND T=3 THEN 625 

670 GOTO 630 

700 REM - SUBTRACTION 

710 PR1NT”HERE* S A PROBLEM IN SUBTRACTION." 

715 S4“"MINUS" 

718 Ri*"SUBTRACTION" 

720 GOSUB 1500 

740 IF B>A THEN Y-A:A-B:B»Y 

750 GOSUB 1000 

760 W-A-B 

770 IF X=W THEN GOSUB 3000 
780 IF X-W THEN 720 
790 GOSUB 4000 

795 IF X<>V AND T-3 THEN 720 
797 GOTO 750 

800 REM - MULTI°LICATION 
8 15 S4“"TIMES": R$ = "MULTIPLI CATION" 

816 PPINT"D0 YOU WANT TO PRACTICE WITH A SPECIAL NUMBER"; 

817 INPUT CS 

818 IF Ci="YES" THEN IN^UT "WHAT IS THE NUM3ER";A 

819 IF Ci-"YES" THEN GOSUB 1510 

820 IF C4-"YES” THEN GOTO 350 

822 PRINT”HERE'S A MULTIPLICATION PROBLEM FOR YOU.” 

830 GOSUB 1500 
850 GOSUB 1000 
855 W-A*B 

060 IF X-W THEN GOSUB 3000 
870 IF X-W AND C4-"YES” THEN GOTO 819 
875 IF X=W AND Ci<>"YES" THEN GOTO 830 
860 GOSUB 4000 

885 IF X<>V AND T-3 AND Ci="YES" THEN GOTO 819 

887 IF X<>W AND T-3 AND Ci<»"YES" THEN GOTO 830 

890 GOTO 850 

900 REM - DIVISION 

910 SS-"DIVIDED BY" 

912 PI-"DIVISION" 

913 U-0 

914 PRINT "DO YOU WANT PR03LEMS WITH REMAINDERS"; 

915 INPUT V* 

916 IF V4-"YES" THEN U-l 

920 PRINT"HERE'S A PROBLEM IN DIVISION." 
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930 GOSUB 1500 

950 IF 3>A THEN Y=A:A=B:t3=Y 

955 IF U*1 THEN 970 

950 Z*INT<A/B> :A=i3*Z 

965 IF A-3 THEN 930 

970 GOSUB 1000 

980 W* INT((A/B)* 100)/100 

982 IF XXW-.ODAND X<(W+.01 )THEN GOSUB 3000 
984 IF XXW-.OUAND X<<W+.01>THEN 930 
986 GOSUB 4000 

988 IF X<>V AND T=3 THEN 930 
990 GOTO 970 

1000 HEM - ASK THE QUESTION 

1010 PRINT" #"JN+l;" HOW MUCH I S"; A1 S* i Bi i IN»»JT v 
1020 RETURN 

1490 HEM - CREATE RANDOM NUMBERS 
1500 A=INT<<N1-2>^RND<I)+2> 

1510 B=INT(<N2-2)+RND(1) + 2 ) 

1520 T=0jRETURN 

1990 REM - EXERCISE CONCLUDED 

1991 POKE 2020* 223:POKE 1234*1 
1993 PRINT 

1995 PRINTTAB<6)*'RS:PRINT 

2000 PRINTA4* ** YOU GOT"** C; "RIGHT AND”J N-C; "WRONG . " 

2005 PRINT"YOU HAD TROUBLE WITH"JL+K;"PROBLEMS•" 

2010 PRINT"YQUR SCORE IS"*INTCC/N*100>-(5*L> 

2020 PRINT:S=L 

2022 IFH (1)=OANDL=OTHENPRINT"NO MI STAKES--CONGRATULATIQNS1":G0T02065 

2026 PRINT"YOU HAD DIFFICULTY WITH THESE PROBLEMS:" 

2027 FOR L=1 TO S 

2028 PRINTTABC6) JP<L)*'S4**£(L);"="** Q(L) 

2029 NEXT 

2030 L=0:PRINT 

2032 IF H(1)=0 THEN GOTO 2062 

2038 PRINT"YOU MISSED THESE PROBLEMS:" 

2040 FOR K=1 TO N-C 

2050 PRINTTABC 6>*FCK>*Si * G < K)*"*"J H(K> 

2060 NEXT K 
2062 K=0 

2064 PRINT 

2065 POKE 1234* 0:POKE 2020*0 

2070 INPUT "SHALL WE TRY SOME MORE"JD$ 

2080 IF D4="Y£S" THEN 230 
2090 IF DS ="NO" THEN 9000 

2095 PRINT"YOU MUST ANSWER YES OR NO PLEASEGOTO 2070 
3000 REM - CORRECT ANSWER! 

3010 T=0:C=C+1:N=N+I 
3012 M=0 

3015 IF N=10 THEN PRINT"EXCELLENT--EXEPCISE IS COMPLETE!":GOTO 1990 
3020 R=INT<<4-1>*RNDC1>+l> 

3040 ON R GOTO 3050*3070*3090 

3050 PRINT"THAT’S RIGHT ";Ai; M . TRY ANOTHER-" 

3060 RETURN 

3070 PRINT"THAT'S VERY GOOD! KEEP IT UP." 

3080 RETURN 

3090 PRINT"YOU * RE SURE SMART "IAS;". HERE'S AN0THE 0 --" 

3110 RETURN 

4000 REM - WRONG ANSWER 
4010 T»T*1 

4015 IF T= 2 THEN 4030 
4020 IF T*3 THEN 5000 
4022 M=1 

4025 L=L+1:PCL)=A:E(L)=B:OCL)=W 
4030 R=*INT< < 4-l)*RNDC 1 ) + 1 ) 

4040 ON R GOTO 4050*4070*4090 

4050 PRINT"YOU GOOFED "lAiJ". TRY AGAIN.” 

4060 RETURN 

4070 PRINT”THAT'S WRONG "lAi;"." 

4080 RETURN 

4090 PRINT"THI>K AGAIN-" 

4095 RETURN \ 

5000 REM - 3 MISSES 

5010 PRINT"YQUR 3 TRIES ARE UP-TOO BAD." 

5020 N=N+1:K=K+1 
5030 IF M=1 THEN L=L-1 
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5040 F<K)=A:G<K>=3 
5042 H<K)«W 

5045 IF N<10 THEN RETURN 
5050 GOTO 1990 

9000 PRINT"G00D8YE FOR NOW- SEE vorj SOON, I HOPE!" 

OK 

PROGRAM 2 


1C REV - MATH TUTOR PPflRPAM 

20 REM OR TRIBAL PR OOP AM pv MARVIN MAI.LON 

25 REM PF-VRTTTFN ANO PRFPAPFD RY ALAN BAMOW SFHR 

27 REM TRANSLATION RY LACS 

30 REM - AUGUST, 1976 

100 REM - OPENING DIALOG 

110 INPUT "HOLA, CUAL FS TIJ NOMERE ?" ; AS 

120 PRINT "GUSTO EN CONOCEST E ";AS;". VAMOS A PPACTICAP" 
130 PR INT"MAT EMAT ICAR JUNTOS." 

202 REM - Vi MICH DRILL? 

210 PR INT"P 0PEM05 HACER SU MAS, PESTAS" 

222 PRINT "MULTIPLICATION Y PIVTSTONER." 

230 PRINT "ESCRIBE UN SP'POl.O Y HAREMCS 10 PROPLEMAR" 

232 FOP L«1TO10:P(L)»P:F(L)«0:9(L)-0:NEXT 

234 L-3 

235 C-0:N-P:R«0:T«0 

237 FCP K* 1 TO 1P:F(K)-0:G(K)»0:H(K)-0:NEXT 
23B K-0 

240 PRINT TA.P(10):“ + - X OR / " 

250 INPUT "CUAL FJFRCICIO ?";e* 

270 IF F$<> " + ** AND Pf <>"-** AND ES<>‘*X" AND P$ <>"/" THEN 240 
300 REM - PICKING THE NIJMRERP 

310 PR I NT "VAMOS A TP ARAJOR CON 2 Nil MER OR OIFFR ENTER" 

320 INPUT "CUAL RFR A LA CANT IPAD CEL PRIMER NUVFRO ?”;N1 
332 IF N1«<0 OP N1 >1000 THEN 380 

340 INPUT"CUAL REPA LA CANT IDAD CEL REGUN0O NUMEP0";N2 
352 IF N 2 - < 0 OP N2 >1000 THEN 3R0 
362 GOTC 4P , 0 

300 PR INT"LOR NUMEPOS TIFNES DUE FRTAR ENTPE DEL 1 A 1000" 
3P5 PRINT "VAMOS A TRATAP" 

390 GOTO 320 

400 REM - GOTO DRILL■POUTINE 
410 IE ?$-"+" THEN 600 
420 IF ETHEN 700 
430 IF F$»"X" THEN 800 
440 GOTO 900 
60P PEM - ADDITION 
615 S$-"+":R$-"RUMAP" 

620 PRINT "AQUI HAY UN PROPLFMA DE SUMAR" 

625 GOSUD 1503 
630 GOSUB 1000 
635 W-A+B 

640 IF X-W THEN GOSUB 3000 
65P IF X-W THEN 625 
660 GOSUB 4000 

665 IF XoA+B AND T-3 THEN 625 

672 GOTO 630 

7PP PEM - SUBTRACTION 

710 PRINT "APUI HAY UN PHOBLFMA DE RESTAR" 

715 

718 R?-"RESTAR" 

722 GORUP 1500 

740 IF B>A THEN Y-A:A-R:B-Y 

750 GOSUB 1000 

760 V.-A-R 

772 IF X-W THEN GOSUB 3*00 
780 IE X-W THFN 720 
792 GOSUB 4p00 

795 IF X<>W AND T-3 THEN 720 
797 GOTO 750 

800 REM - MULTIPLICATION 
ei5 B$-"X";R$«"MULTIPLICACTON" 

816 PRINT "QUIERES PRACTICAR CON NUMEROS FSPECIALES" 

817 INPUT C$ 
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018 IF C$«"8I" THEN INPUT "CIJAL ES EL NUMERO” ; A 

819 IF C$."SI M THEN GOSUP 1510 

820 IF C$.”SI" THEN GOTO 855! 

022 PRINT “APUI HAY UN PROPLEMA HE MULT IPLICACION*' 

830 GOSUP 1500 
850 GOSUB 1000 
855 W-A*B 

960 IF X-W THEN GOSUP 3000 
870 IF X-W AND r$-"SI M THEN GOTO 019 

875 IF X-W AND C^'SI" THEN GOTO 030 

880 GOSIJB 4000 

885 IF XoW'AND T-3 AND C*-“SI” THEN GOTO 019 

887 IF XoW AND T-3 AND rWRI* THFN GOTO P30 

890 GOTO 850 

900 PEM - DIVISION 

910 S$- M DIVIDIDO POP*’ 

912 0$."niViniON" 

913 U-0 

914 PRINT “OUIEPES PROBLEMAS CON PESTDUO (SOPPANTES)" 

915 INPUT V$ 

916 IF VS-"SI- THEN IJ-1 

920 PRINT ” AQUI HAY UN PROPLEMA OF DIVTCTON** 

930 GOSUP 1500 

953 IF E>A THEN Y-A:A-P:R-Y 

955 IF U-1 THFN 970 

960 2 -INT(A/P) :A-E*Z 

965 IF A=8 THEN 930 

970 GOSUP 11PS? 

980 W-INT<(A/E)*100)/100 

962 IF X>{W—.01)AND X<(W+.01)THEN GOSUB 3000 
984 IF X>(W—.01)AND X<(W+.01)THEN 930 
986 GOSUB 4000 

980 IF XoV AND T-3 THEN 930 
990 GOTO 970 

1000 REM ASK THE OUFFTION 

1001 IF A<10 THFN Z-22:GOTu 1305 

1002 IF A<100 THEN Z«?1:GOTO 1005 

1003 Z-20 

1005 IF B<10 THEN 0»2?:G0T0 101? 

1006 IF P<100 THEN C-21:GOT0 1010 

1007 C-20 

1010 PRINT M V" ; n+1 ; 

1012 PRINT TA0(Z) ;A 

1014 PRINT TAB(15);S$:SPC(0-16);P 

1015 PRINT TA6( 15) -“ 

1016 INPUT X 
1020 RETURN 

1100 REM ASK DIVISION QUESTION 

1110 PRINT ".?** ;N+ 1 :*‘riJANTO FS. ’’A ;S$ ; P : INPUT X 

1115 RETURN 

1490 REM - CREATE RANDOM MJVPFRS 
1503 A-INT((N1-?)*RND(1)+?) 

15 IP B-TNT((N?-2)*RND(1) + ?) 

1520 T-0 jRETUPN 

1990 PEM - EXFPCISE CONCLUDED 

1993 PRINT 

1995 PPINTTAD(6):PI:PPINT 

2P00 PPINT Af;" TIENES”:C:“CDPPFCTO Y";N-CINCO p REOT DP" 

2005 PRINT "TFINFS PPOPLEMAS CON” ;L+K :"PHDPI. FMAS” 

2010 PRINT "TU GRADO ES " ; INT ( C/ N* 1 0 0) - ( 5*1) 

2020 PRINT :S-L 

202? IFH( 1)-0ANOL-0THEN PRINT ”MNGUN FPRrP...TF FFLiriTO!!" 
2023 IFH(1)-0AND L-0 THFN 206? 

2026 PR INT"TUVIS T E CIFICULTA CON LOS SIGUIENTES PPOPLEMAS” 

2027 FOR L-1 TO S 

202S PRINTTAP(6) :P(L) :S* : F(L):"=”:0(I ) 

2029 NEXT 
2P30 L-0:PRINT 

2032 IF H(1) = 0 THFN GOTO ??6? 

2038 PP TNT "HIZIPTF HAL FSTOS PPOCLFVAS" 

2040 FOR K-1 TO N—0 

2 050 PR INTT AE( 6) ;F(K) :SS:0(k) H( K) 

2060 NEXT K 
2 06? K = 0 
2064 PRINT 
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2P70 INPUT " TP AT AMDS PAS PROPl.FVAS ":D$ 

20R0 IF D*-"PI" THEN ?30 
2P9P IF D$«“NO" THEN 9000 

2^95 PRINT'* YOU MUST ANSWFP YEP HP MC PI. EASE.GOTO 2070 
30(?0 REM - TOPRECT ANSWER! 

31? 10 T»0 : OC+ 1 ;N»N+ 1 
301? V-0 

3P15 IFN-1P thfn print’* excelente—e jercicic OOMPLFT 0." : HOT 01 990 
3020 R-JNT((4-1)*RNP(1)+1) 

3040 ON R GOTO 3050,3070,3090 

3050 PRINT "FSTA COPRFCTO “ : fit •/', TP AT A OTPO-” 

3060 PETURN 

3070 PRINT "MUY PIFN!f CONTINUA ASI." 

3060 PETURN 

3090 PPINT "EHES MUY INTELFGNETE *';A$:’’. AQUI TFNEMOS OTRO." 
3110 PETURN 

4P00 REV - WRONG ANSWER 
4010 T-T+1 

4015 IF T-2 THEN 4030 
4020 IF T-3 THEN 5000 
4022 V-1 

4025 L-L+1:P(L)-A:E(L)-P:0(L)-W 
4030 R-IMT((4-1)*RND(1)+1) 

4040 ON R GOTO 4050,4070,4090 

4050 PRINT “EPPASTE ";A$;". TRATA OTRA VEZ." 

4060 RETURN 

4070 PRINT "ESTA INCORRECTO ";A*;"," 

40R0 RETURN 

4090 PRINT "PIENSA OTRA VFZ" 

4095 RETURN 

5000 REM - 3 MISSES 

5010 PRINT "TUB 3 PRFBAS TFRMIMAP.ON—LO STENTC! ! ” 

5020 N-N+1:K«K+1 
5030 IF M-1 THEN L-L-1 
5040 F(K)-A:G{K)-e 
5042 H(K)«W 

5045 IF N<IP THFN RFTURN 
5050 GOTO 199P 

9000 PPINT "HASTA LUEGO POR AHOPA. TE VEC PRONTO!!" 


OK 
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Chapter 14 


The Personal 
Management Program 


by Carl Townsend 


Now that you have got your computer going you have probably 
found yourself with dozens of projects that need to be done. The com¬ 
puter has multiplied your effectiveness, but how can it manage your 
time and projects? 

Why not use the computer itself to manage the projects? The com¬ 
puter can monitor an inventory of all your existing projects, the 
relative priority and any deadline dates. This little managing program 
performs a sort each time the projects are listed, sorting the list in 
priority and date order. 

EASY AS A-B-C 

Control begins with planning. What are your long term goals? How 
do you plan to accomplish these? Can you define some short term 
goals that would be steps to the larger goals? 

1. What resources do you need? (people and materials) 

2. What education will you need? 

You should try to translate the larger blue sky goals to smaller, 
realizable and specific subgoals. List these subgoals as projects on a 
sheet of paper without assigning any priorities. List any relevant 
deadline dates (income taxes, for example, may have to be mailed 
before the fifteenth of April). Then go over this list and mark an "A” by 
those that will give you the most value or need most immediate atten¬ 
tion. Those next in order should get a “B,” and the next a “C.” These 
values are relative based on your goals and the rewards you envision. 
For more help on this, read Alan Lakein’s How to Get Control of Your 
Time and Your Life.' This list will be used as the input to the computer 
program and should be updated weekly. A sample list is shown in 
Figure 1. 
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PROJECT LIST - 

MAI LOUT PROGRAM - Build Module - A 

Sort Module — B 
List Module — B 
Extraction Module — B 
Update Module — B 
Documentation — A 

Build system for delivery: New Book — A 

Letters — A 
Next Newsletter — A 
Church Proposal — A 
Business Proposal — A 

Read: Winter’s Book — A 

Magazines — A 

Software: Nutrition Program — C 


Figure 1. Initial Project List 


USING THE PROGRAM 

The program as listed runs in the new commercial BASIC with 24K 
of memory. It can easily be modified for BASIC-E, Microsoft BASIC, or 
North Star BASIC. The sort is performed on random files on the disk, 
so only enough memory is needed for two strings at a time. The sort 
using a PerSci disk and CP/M takes only a few seconds and the disk 
head will not drop from the disk during the entire sort. The flow 
diagram is shown in Figure 2. The program is in Program 1. 

GOING TO LARGER PROJECTS 

Once the program is mastered, visit your local library and locate 
books on critical path charting, Ghant charts, and PERT charts. Study 
up on these and find the methods that seem best for your projects. 
Use the project codes in this program listing to flag phases of larger 
projects and you will find this program can monitor progress on your 
larger projects. Always list the larger project name as well as the 
name of the particular phase, as: 

A 12/20/77 MAILOUT—Build Module 
B 12/31/77 MAILOUT—Sort Module 
C 12/31/77 MAILOUT—List Module 
D 01/15/77 MAILOUT—Extraction Module 
E 01/15/77 MAILOUT—Search Module 

Start the program and the program will request on operation mode: 
I —sort and list the current file 
p—sort and print the current file 
u—update the current file 
e—exit 

The “I” and “p” mode use the same routine, with the only difference 
being the output device. Both output the project list (see Figure 3). The 
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Figure 2. Personal Management Program Flow Diagram 
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crun task 
CRUN VER 1.01 

Personal Management Program 
Create a New Pile? n 
Option (update,list,print or exit): p 
Date: 01/16/78 

Personal Task Schedule 
Date: 01/16/78 


1 

A 

01/14/78 

Write letters (Center) 

2 

A 

01/14/78 

Next Patterns 

3 

A 

01/18/78 

Continue writing book 

4 

A 

01/18/78 

Document Personal Management Program 

5 

A 

01/18/78 

Mallout — Sort Module 

6 

A 

01/25/78 

Do coordinate maps 

7 

A 

01/18/78 

Repair tape recorder for church 

8 

A 

01/21/78 

Read Winter’s Book 

9 

A 

02/15/78 

Church Information System — Proposal 

10 

B 

01/25/78 

Mallout — Update Module 

11 

B 

01/25/78 

Mailout — Extraction Module 

12 

B 

01/31/78 

Read — Corporation Books 

13 

B 

01/31/78 

Read — book on volunteer organizations 

14 

B 

01/25/78 

Business Proposal 

15 

B 

02/15/78 

Assemble 2SIO and Floppy Disk Interface 

16 

C 

02/28/78 

Income Tax — Calculate 

17 

C 

02/28/78 

Nutrition Program 

18 

C 

02/15/78 

Checkout 2SIO and interface 


Option (update,list,print or exit): e 


Figure 3. Sample Project Listing 

exit mode returns the user to the operating system. The update mode, 
when requested, asks the user for the type of update option desired: 
p—alter priority of specified item 
a—add an item 
d—delete an Item 
e—exit update mode 

The “a” option in the update mode permits the user to add any proj¬ 
ect to the current list. The project is appended to the end of the cur¬ 
rent file (see Figure 4). The first record on the file always is in¬ 
cremented by one as each project is added. The file is not sorted until 
the next list or print mode. As each project is added a project 
“number” is assigned to the project automatically based on its order 
in the file. This number is used to later priority on the project or for 
deletions. 

The “d" option (delete) permits the user to delete any project from 
the file. The “item number” is requested, and the user inputs the cur- 
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crun task 
CRUN VER 1.01 

Personal Management Program 
Create a New Pile? n 
Option (update, list, print or exit): u 
Priority alter,delete,add or exit: a 
Job Description: Accounting Program 
Priority: B 
Date: 01/31/78 

19 B 01/31/78 Accounting Program 
Priority alter,delete,add or exit: d 
Item # : 12 

Priority alter,delete,add or exit: p 
Item # : 5 

Job: A 01/18/78 Mailout — Sort Module 
New Priority: B 

Priority alter,delete,add or exit: e 
Option (update,list,print or exit): I 
Date: 01/17/78 

Personal Task Schedule 
Date: 01/17/78 


1 

A 

01/14/78 

Write letters (Center) 

2 

A 

01/14/78 

Next Patterns 

3 

A 

01/18/78 

Continue writing book 

4 

A 

01/18/78 

Document Personal Management Program 

5 

A 

01/25/78 

Do coordinate maps 

6 

A 

01/18/78 

Repair tape recorder for church 

7 

A 

01/21/78 

Read Winter’s Book 

8 

A 

02/15/78 

Church Information System — Proposal 

9 

B 

01/18/78 

Mailout — Sort Module 

10 

B 

01/25/78 

Mailout — Update Module 

11 

B 

01/25/78 

Mailout — Extraction Module 

12 

B 

01/31/78 

Read — book on volunteer organizations 

13 

B 

01/25/78 

Business Proposal 

14 

B 

02/15/78 

Assemble 2SIO and Floppy Disk Interface 

15 

B 

01/31/78 

Accounting Program 

16 

C 

02/28/78 

Income Tax — Calculate 

17 

C 

02/28/78 

Nutrition Program 

18 

C 

02/15/78 

Checkout 2SIO and interface 


Option (update,list,print or exit): e 


Figure 4. Sample of Update 
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rent project number for the project to be deleted. The project is 
deleted from the file, and all subsequent projects “moved up” to 
recover the lost space. The first record on the file that indicates the 
total number of projects is decremented by one. This alters the project 
numbers for all subsequent projects in the file, and in multiple delete 
operations the user should start from the bottom of the listing and 
work up. 

The “p” option alters the priority of any project in the file. The cur¬ 
rent project number is entered and the project priority date, and name 
printed. The user enters the new priority. The file is then updated. 

The “e” or exit option returns the user from the update mode. No 
sorts are made until the next list or print mode select. 

PROGRAM APPLICATIONS 

Notice that the program, as written, does not request the name of 
the input file with the projects. This is because each person can have 
their own disk, personal management program, and project file. The 
management program is stored as TASK, with the project file contain¬ 
ing the name of the person who uses the disk. Everybody has their 
own list of projects, and even the project priorities will vary among 
family members. 

The bubble sort of this program will help you to keep the progress of 
the project in order. The sort will also keep all phases of a particular 
program together if they have the same priority and deadline date. 

PROGRAM LISTING 

CBASIC COMPILER VER 1.00 

1: Rem Personal Management Program 

2: rem by Carl Townsend 

3: rem last edit date: 1/15/78 

4: carl.asc$="carl.asc" 

5: print "Personal Management Program":print 

6: true = -1 

7: Input "Create a New File? ";i$ 


8 


if left$(i$,l)="y" then goto 

80 


9 


open carl.asc$ reel 80 as 1 



10 

10 

n=l 



11 


if end # 1 then 90 



12 


read # 1,1;q 



13 


input "Option (update,list,print or 

exit): 

14 


if left$(i$,l)*"l" then goto 

21 


15 


if left$(i$,l)="p" then goto 

20 


16 


if left$(i$,l)="u" then goto 

30 


17 


if left$(i$,l)="e" then goto 

90 


18 


goto 10 



19 

20 

rem print mode 



20 


lprinter 



21 

21 

rem list mode 



22 


input "Date: ";d$ 



23 


print:print "Personal Task Schedule' 

:print 

24 


print "Date: ";d$ 



25 


print 



26 


flag - true 



27 


if end # 1 then 25 



28 


while flag = true 



29 


n=2 



30 


flag = false 



31 


read # l,n;i$ 



32 


while q-n 
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33: 

read # l,n+l;j$ 


34: 

if left$(i$,l)>left$(j$,l) then 


35: 

k$=i$:i$=j$:j$=kj:flag = true 


36: 

print * l,n;i$ 


37: 

ij'jj 


38: 

n»n+l 


39: 

wend 


40: 

print # l,n ;j$ 


41: 

wend 


42: 25 

n=2 


43: 

if end # 1 then 10 


44; 27 

read # l,n;i$ 


45: 

i$=" "*i$ 


46: 

print using "##";n-l;:print i$ 


47: 

n=n+l 


48: 

if (n-1) q then goto 27 


49: 

console 


50: 

goto 10 


51: 30 

rem update mode 


52: 

read # l,l;q 


53: 

input "Priority alter,delete,add or exit: ";i$ 


54: 

if left$(i$,l)="p" then goto 40 


55: 

if left$(i$,l)="d" then goto 50 


56: 

if left$(i$,l)="a" then goto 60 


57: 

if left$(i$,l)="e" then goto 10 


58: 

goto 30 


59: 40 

rem priority alter option 


60: 

input "Item # :";n 


61: 

if n>(q-l) then goto 30 


62: 

read # l,n+l;i$ 


63: 

print "Job: ";i$ 


64: 

input "New Priority: ";p$ 


65: 

i$ = left$(p$,0+mid$(i$,2,lenCi$)-l) 


66: 

print # l,n+l;i$ 


67: 

goto 30 


68: SO 

rem delete option 


69: 

input "Item # :";n 


70: 

if n>(q-l) then goto 30 


71: 

if n=q-l then print # l,l;q-l:goto 30 


72: 

for s=n+l to q-1 


73: 

read # l,n+2;i$ 


74: 

print # l,n+l;i$ 


75: 

n=n+l 


76: 

next s 


77: 

read # 1,1;s 


78: 

print H l,l;s-l 


79: 

goto 30 


80: 60 

rem add option 


81: 

input "Job Description: ";j$ 


82: 

input "Priority: ";p$ 


83: 

input "Date: ";d$ 


84: 

i$=left$(p$,l)+" "♦left$(J$,8)+" "*j$ 


85: 

q=q+l 


86: 

if len(i$)>78 then i$-left$(i$,78) 


87: 

print q-1;" ";i$ 


88: 

print # l,q;i$ 


89: 

print # 1,1;q 


90: 

goto 30 


91: 80 

rem create new file 


92: 

create carl.asc$ reel 80 r.s 1 


93: 

n=l:print # 1,1;n 


94: 

goto 10 


95: 90 

rem close files 


96: 

close 1 


97: 

stop 


9S: 

er.J 


NO ERRORS DETECTED 
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Appendix A 

8080 Instruction Set 


Some of the instructions include references to specific registers. For instance, 
the MOVr,, r, instruction takes the value stored in register r, (called the source 
register) and stores it in register r (called the destination register). The three 
bit value used to identify the source is shown as SSS in the op code; the 
three bit value used to identify the destination is shown as DDD. The corre¬ 
spondences between registers and three bit values are 


SSS 

register or DDD 

(accumulator) A 111 

B 000 

C 001 

D 010 

E 011 

H 100 

L 101 


Thus, the op code for MOV A, B is 

DDD 

oi rnooo 

SSS 

The 8080 (and the 8085) has five status flags (also called condition flags 
or condition codes). 


status flag 

abbreviation 

maaning for instructions which affect the flag 

zero 

Z 

if the result of an instruction is zero (all bits 0), 
zero “ T, otherwise zero « 0. 

sign 

s 

if the leftmost bit of the result is 1 , sign ■* 1 , else 
0 . 

if an arithmetic operation resulted in a carry or a 
borrow out of the leftmost bit, carry = 1 . 

carry 

CY 

parity 

P 

if there is an even number of 1 s in the result, 
parity — 1 . 

auxiliary carry 

AC 

carry out of bit 3. Used when dealing with binary 
coded decimal values (see DAA instruction). 

Other abbreviations 



The second and third bytes of multibyte instructions are identified as byte 
and byte,. ’ 

pc — the program counter (a 16-bit register) 
r — a register, one of A, B, C, D, E, H, L 

sp — the stack pointer (a 16-bit register) 

‘Thanks to Intel Corp. for permission to include this material. 
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2.25 

October 1976 
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2.50 
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2.50 
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2.50 
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2.75 
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2.75 
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2.75 
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2.75 

December 1978 

2.75 
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